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-REM% 
IDENTIFICATION 
PRODUCT CODE: AC-E768B-MC 
PRODUCT NAME: CVVSABO VSV11/VS11 DIAGNOSTIC 
MAINTAINER: CSS PERIPHERALS & GRAPHICS GROUP 


AUTHORS : DON MACOMBER 
GUS PASQUANTONIO 
BILL WEISKE 
DATE: 9=JUL-1981 


REVISION HISTORY 


BILL WEISKE 27-0CT=81 

TEST 14 = BYPASS IF LSI AN AND_.GT. 124K _OF MEMORY. 
TEST 17 = REPLACE CLRMEM WITH SETMEM 

TEST 34 = INCREASE DELAY (WAS PROBLEM @50HZ) 


COPYRIGHT (C) 1982 
DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS. 


THIS SOFTWARE IS FURNISHED UNDER A LICENCE FOR USE ONLY ON A 
ea a gt SYSTEM AND MAY BE COPIED oy WITH THE INCLU- 


OTHER COPIES THEREOF Y NOT BE PROVIDED OR OTHE 
AVAILABLE 4% ANY OTHER PERSON EXCEP SE ON SUCH SYSTER 
AGREES TO THESE LICENSE ITEMS. TITL 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 


DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DEC. 





SEQ 0001 
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SEQ 0002 
60 me te Ge ee ee we ee ee Se Se ee | 
61 1.0 PROGRAM ABSTRACT 
63 
64 THE VSV11_ DIAGNOSTIC PROGRAM PROVIDES A SERIES OF TESTS 
65 DESIGNED TO VERIFY THE INTEGRITY AND OPERABILITY OF THE 
66 VSV11/VS11_Q=BUS VIDEO IMAGE PROCESSING SYSTEM. 
67 SOME OF THE TEST SEQUENCES ARE VISUAL ONLY. HOWEVER ALL 
68 TESTS WILL RUN WITH OR WITHOUT A DISPLAY MONITOR 
69 CONNECTED TO THE SYSTEM. THE TESTS DESIGNATED 
70 ‘DPU-ONLY'’ WILL RUN WITHOUT THE ‘DBUS'’ CONNECTED 
71 TO THE DISPLAY PROCESSOR MODULE, { (M7064). 
72 THE PROGRAM WILL SUPPORT UP TO 16 VSV11 SYSTEMS. 
73 HOWEVER, MULTI-UNIT CONFIGURATIONS ARE TESTED ONE AT 
74 A TIME BY THE PROGRAM. 
75 ANY LOGIC ERRORS ENCOUNTERED ARE REPORTED ON THE SYSTEM 
76 CONSOLE DEVICE. 
18 
0 1.1 LIST OF "HARDWARE TESTS 
81 
82 DPU ONLY TESTS: 
84 TEST 1 STATIC RESET 
85 TEST : RESET ONES 
TEST SOFT INIT ONES 
87 TEST 4 REGISTERS UNIQUE ADDRESS 
88 TEST 5 INCREMENTING REGISTERS 
89 TEST 6 DPU START=STOP 
TEST 7 DPU OPCODES 
91 TEST 8 INCREMENTING HISTOGRAM BASE ADDRESS 
92 TEST 9 INCREMENT ING CHARACTER BASE ADDRESS 
93 TEST 10 DJMS/DPOP 
TEST 11 IN MEM MGT ACCESS (OVER 28k) 
95 TEST le AUX MEM MGT ACCESS (OVER 28k) 
96 TEST 1 STOP_INTERUPT 
97 TEST 14 DPU TIME-OUT INTERUPT 
98 TEST 15 ERROR CODE 
99 TEST 16 ADDRESS RELOCATE 
100 TEST 17 CHARACTE 
101 TEST 18 ABSOLUTE POINTS 
102 TEST 19 LONG VEC 
103 TEST 20 RELATIVE POINTS 
104 TEST 21 SHORT VECTORS 
105 TEST 22 RUN-LENGTH 
107 IMAGE MEMORY & SYNC GENERATOR TESTS & DISPLAYS: 
109 TEST 23 CURSOR REGISTERS/SWITCH/MATCH 
110 TEST 24 GRAPH=HISTOGRAM X 
111 TEST 25 GRAPH-HISTOGRAM Y 
112 TEST $ T MAP (1) 
113 TEST BIT MAP (0) 
114 TEST g IMAGE MEMORY CLEAR-SET 
115 TEST IMAGE MEMORY INTERLACE 
116 TEST 30 IMAGE MEMORY PATTERNS 





’ 
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TEST 31 SPARE 

TEST 32 SYSTEM VERIFICATION DISPLAY 

STAND ALONE TESTS & ROUTINES: 

TEST 33 JOY-STICK VERIFICATION (STAND ALONE) 
TEST 34 SELECTED DISPLAYS (STAND ALONE) 

TEST 35 SYSTEM CONFIGURATION (STAND ALONE) 


2.0 STRUCTURE OF PROGRAM 


THIS PROGRAM IS STRUCTURED TO RUN UNDER THE DIAGNOSTIC 
SUPERVISOR (REV D) AND THE XXDP+ MONITOR. 

A BRIEF OVERVIEW OF OPERATING INSTRUCTIONS IS PROVIDED 
IN SECTION 3.1 OF THIS DOCUMENT. REFER TO CHAPTER 5 OF 
THE XXDP+ USERS MANUAL FOR FURTHER DETAILS. 


WSO DONAULSWN—OOOn 


2.1 HARDWARE REQUIREMENTS 


PDP=11/LSI-11 PROCESSOR WITH 28K OR MORE OF MEMORY 
CONSOLE DEVICE (LA30, LA36, VT50, VT100, ETC.) 
XXDP+ LOAD DEVICE (RX, RP, RL, TM. DT, E 
1 TO 8 VSV11 SYSTEMS, EACH CONSISTING OF: 

M7064 DISPLAY PROCESSER 

M7062 IMAGE MEMORY (1 TO 4 CHANNELS) 

M7061 SYNC GENERATOR WITH CURSOR CONTROL 

DISPLAY MONITOR, COLOR OR MONOCHROME (OPTIONAL). 

DW11 UNIBUS TO LSI-11 BUS CONVERTER (OPTIONAL, VS11 

SYSTEMS ONLY). 


2.2 RELATED DOCUMENTS AND STANDARDS 


XXDP+ USERS MANUAL ( 
VSV11 OPTION DESCRIP 
VSV11 DIAGNOSTIC LIS 


CHQUSA_) 
TION (YM-C183C) 
TING (SEC 7 OF THIS DOCUMENT). 


oO oO 


3.0 LOADING AND STARTING PROCEDURES 


THIS PROGRAM IS LOADED AND STARTED FROM ANY XXDP+ MEDIA 
USING THE STANDARD XXDP+ OPERATING PROCEDURES. 


AT START _UP, THE SUPERVISOR WILL IDENTIFY ITSELF AND THE 
NAME OF THIS PROGRAM ON THE CONSOLE DEVICE, AND THEN 
DISPLAY A COMMAND MODE PROMPT ( DR> ) WHICH INDICATES 
READY TO ACCEPT ANY OF THE FOLLOWING COMMANDS. 


ee ek a kek ek ed td td a od td Sd = = et SS = a as = ot 9 SS a ss SS I St SS SS So ss a Ss ss SS 









: 


3.1 


30009 COSI NINN“ 


BRLKARAVLESSLRALAVLSSAVSAR 


eo od Sd 2 od od od — 2 = 28 2 8 2) 6 = os os SI = = I 


MOPOPNNoNgNNoNoN 
3 
SODBNAOUSWN OO 


: E 
VSV11/VS11 == RASTER GRAPHIC DI MACRO M1113 28-OCT-81 11:23 PAGE 4 










SEQ 0004 


SUPERVISOR COMMAND SUMMARY 


THIS SECTION PRESENTS A BRIEF OVERVIEW OF THE COMMANDS 
NECESSARY TO CONTROL THE OPERATION OF THIS DIAGNOSTIC 
UNDER THE REV D DIAGNOSTIC SUPERVISOR. 


STA(RT) INITIAL START-UP == BUILD P-TABLES. 
RES (TART) RESTART == USE EXISTING P=-TABLES. 
CON( TINUE) CONTINUE AFTER <*C> OR ERROR HALT. 
PRO(CEED) CONTINUE AFTER ERROR HALT. 

EXI(T) RETURN TO XXDP+ MONITOR. 


THE FOLLOWING SWITCHES APPLY TO THE ABOVE: 


/TESTS: <TEST NUMBERS TO RUN> 

/PASS: <NUMBER OF PASSES TO RUN> 

/FLAGS: <SEE FLAG LIST BELOW> 

/EOP: <NUMBER OF PASSES ‘TIL END-OF=-PASS> 


ADDITIONAL COMMANDS AVAILABLE ARE: 


DRO(P)/UNIT:N REMOVE UNIT N FROM TEST LIST 
ADD/UNIT:N ADD UNIT N (PREVIOUSLY DROPPED). 
DIS(PLAY)/UNIT:N PRINT UNITS P=TABLE AND STATUS. 

PRI (NT) PRINT erase (PER-UNIT STATUS). 
ZFL(AGS) CLEAR ALL FLAGS. 

FLA(GS) PRINT CURRENT FLAG SETTINGS. 


THE GENERALIZED COMMAND STRING FORMAT IS: 
COM(MAND) /SWITCH:VALUE/SWITCH: VALUE ... <CR> 


THE FOLLOWING FLAGS ARE USED IN LIEU OF THE OLD 
HARDWARE SWITCH REGISTER TO FURTHER DEF INE 
PROGRAM BEHAVIOUR: 


HOE HALT ON ERROR 


LOOP ON ERROR 
IER «INHIBIT ALL ERROR REPORTS 
IBE ‘INHIBIT BASIC ERROR REPORTS 
IxR INHIBIT. EXTENDED ERROR REPORTS 
PRI SEND _ALL REPORTS TO LINE PRINTER. 
PNT PRINT TEST. NUMBERS (AND, 1.0'S) AS EXECUTED 
BOE GOOD OLD, BELL -ON-ERROR"” 
UAM = RUN_IN (NO MANUAL) 
ISR INHIBIT STATISTIES, (PER-UNIT. STATUS EACH PASS) 
IDU «INHIBIT “‘AUTO=DROP*’ (EXCEPT FOR NON-EXISTENT REG.) 
ADR EXECUTE AUTO-DROP"* (USER SUPPLIED. CODE) 


P ON TEST 
EVALUATE ERRORS (NOT IMPLEMENTED) 
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SEQ 0005 

231 
232 FLAG SETTINGS ARE ALTERED BY USING THE /FLAGS: SWITCH 
233 IN ANY COMMAND STRING. STA/FLAG:1ER:BOE <CR> 
234 WILL START THE PROGRAM, RUN ALL TEST IN ORDER, INHIBIT 
335 ERROR TYPEOUT, RING BELL ON ERROR. 
a4 
239 3.3 _ INITIAL START-UP -- BUILD P-TABLES 
241 
242 WHENEVER THE PROGRAM IS STARTED, VIA THE STACRT) COMMAND, 
243 THE SUPERVISOR REQUESTS THE FOLLOWING P=TABLES PARAMETER 
245 
246 CHANGE HW (L) ? 
247 
248 #UNITS (D) ? 
249 UNIT 0 
250 DEVICE ADDRESS (0) 172010 ? 
251 1ST INTERUPT VECTOR (0) 320 ? 
252 INTERRUPT PRIORITY (0) 4? 
253 LUT INSTALLE (L) N ? 
254 FREQUENCY = 50HZ (L) N? 
255 
537 
258 IN ADDITION, ON A START, RESTART OR CONTINUE THE SUPERVISOR 
259 REQUESTS CHANGES TO THE SOFTWARE OPERATING PARAMETERS, AS 
260 FOLLOWS: 
261 
262 CHANGE SW? 
264 RUN DPU TESTS ONLY (LN? 
265 LONG MEMORY TESTS (L) N? 

INHIBIT ITERATIONS (L) N? 
267 MANUFACTURING MODE (L) N? 
268 PER TEST ERROR LIMIT  (D) 25 ? 
269 PER UNIT ERROR LIMIT  (D) 200 ? 
271 IF RUN DPU TESTS ONLY2"" IS ANSWERED ''VES'". NO COMMUNICATION 
272 WITH THE IMAGE MEMORIES OR SYNC CHANNELS I$ MADE; THE PROGRAM 
273 CAN BE RUN WITH THE ‘DBUS'’ CABLE DISCONNECTED. IF ‘LONG 
274 MEMORY TESTS” 1S SELECTED, 15 DIFFERENT BIXEL “DATA VALUES ARE 
275 USED DURING TEST 2 E MEMORY Y-CLEARSSET) RATHER. THAN THE 
276 STANDARD 5 VALUES. INHIBITING ITERATIONS CAUSES. THE PROGRAM 
277 TO RUN FASTER, EQUIVALENT TO THE FIRST PASS AFTER STARTUP. 
278 IF "MANUFACTURING MODE'’ IS SELECTED, PREDEFINED PARAMETERS ARE 
279 USED FOR THE. IMAGE MEMORY AND SYNC CHANNEL. CONFIGURATION DATA 
280 THE ERROR LIMITS DEFINE THE NUMBER OF ERRORS ALLOWED TO OCC 
281 BEFORE A OPPED (UNLESS THE /FLAG:IDU FLAG I$ SET TO 
282 INHIBIT DROPPING OF UNITS). FOR EXAMPLE. iF 25 ER CCUR 
283 IN TEST 3 WHILE TESTING UNIT 2, UNIT 2 WILL BE DROPPED. OR, 
2 IF UNIT 2 ACCUMULATES S00 ERRORS OVER THE COURSE OF SEVERAL’ TESTS 


UNI 
285 OR PASSES, IT WILL BE DROPPED. 
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288 4.0 ERROR REPORTING 

Re See a ee oR 

291 LOGIC ERRORS ARE REPORTED BY THE DIAGNOSTIC SUPERVISOR 
292 AS TH HEY OCCUR, HOWEVER. IT MUST BE NOTED THAT CAREFUL 
293 OBSERVATION OF THE VARIOUS VISUALS FRAMES IS ALSO 

$3¢ REQUIRED TO VERIFY TOTAL SYSTEM PERFORMANCE. 

296 EACH ERROR SIGNATURE CONSISTS OF ONE OR MORE LINES OF 
297 TEXT, DESCRIBING THE ERROR, AND INCLUDES EXPECTED VS 
298 RECEIVED DATA WHERE APPLICABLE. 

299 THE FIRST LINE IS THE SUPERVISORS HEADER (BASIC), WHICH 
300 INCLUDES PROGRAM NAME, ERROR TYPE (HRD, SFT, DEV FATAL, 
301 OR SYS FATAL) » ERROR MUnBER TEST AND SUB-TEST NUMBERS. 
302 AND PC. THE HEADER WILL NORMALLY BE FOLLCWED BY ONE OR 
305 MORE (EXTENDED) LINES FURTHER IDENTIFYING THE ERROR. 

305 EXAMPLES: 

306 CVVSA DEV FTL ERR 00002 ON UNIT 00 TST 000 SUB 001 PC:_____ 
307 BUS-INIT'' DIDN'T INITIALIZE DPU 

308 UNIT 0 DROPPED 

3 . 

311 CVVSA HRD ERR 00801 ON UNIT 00 TST 008 SUB 001 PC:______ 
312 LONG VECTOR FAILURE 

313 DXR,DYR EXP'D: 1776,0000 

314 DXR;DYR REC'D: 0000,0000 

315 ORIGIN: 0000,0000 6X,DY:041776,000000 

317 NOTE THAT THE ERROR NUMBER IS IN THE FORMAT ‘‘TTTEE’’ 

318 WHERE EE IS THE E'TH ERROR CALL WITHIN TEST TTT. 


WHEN ERRORS oe OUTSIDE THE CONFINES OF A GIVEN TEST 
320 (INITIALIZE, OR SOME GLOBAL SUBROUTINE), TTT = 0. 


354 | 
322 I.E. ERR 00002 = 2ND ERROR IN PROGRAM INITIALIZATION. 

$52 ERR 00801 = 1ST ERROR IN TEST 8. 

325 

+ Oc eee 2 ea ep 

327 4.1 ERROR HALTS 

Ie aa OS ee | erage rages 

330 ERROR HALTS ARE CONDITIONED BY THE HALT-ON-ERROR 

331 SWITCH ( /FLAG:HOE ). 

332 HALT IN THIS CONTEXT MEANS RETURN TO COMMAND MODE. 

333 THERE ARE NO OTHER toy HALTS. 4 
334 PRO(CEED) TO RESUME FROM THE POINT OF THE ERROR CALL. 

335 CON(TINUE) TO RESTART AT THE BEGINING OF THE TEST IN 

336 IN WHICH THE ERROR OCCURED. 


H 
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339 4.2 DROPPING OF UNITS 

31 See a eon 

342 UNDER SOME CONDITIONS OF FATAL OR EXCESSIVE ERRORS, 

343 A_UNIT WILL BE ‘‘DROPPED'* FROM THE LIST OF DEVICES 

344 BEING TESTED. OR EX E, IF A DEVICE REGISTER _IS 

345 NON-EXISTENT, THE UNIT IS DROPPED BEFORE ACTUAL TESTING 
346 ES. ION, A UNIT WILL D 

347 OR MORE ERRORS OCCUR WITHIN ANY ONE TEST (UNLESS THE 
348 ° /FLAGS:1DU SWITCH IS SET). THE DROPPED UNIT IS REPORTED 
349 AND APPEARS IN THE PER-UNIT STATISTICS REPORT. IN SOME 
350 eet THE ERROR COUNT IS NOT TESTED UNTIL THE END OF 
351 A TEST LOOP, SO MORE THAN 25 ERRORS CAN OCCUR BEFORE 


THE UNIT IS DROPPED. 


5.0 PERFORMANCE AND PROGRESS REPORTS 


¥ WWWWINA 
UMVIM 
SOWVONOMUEWI 


359 NORMAL PROGRESS THROUGH A GIVEN “e ne ee ,° 
INDICATED BY THE PRINTING OF EACH T 

361 TITLE ON THE SYSTEM CONSOLE DEVICE CF THE VELAGS PNT 

362 SWITCH IS USED), FOLLOWED BY AN END=-PASS WHEN ALL TESTS 

363 HAVE BEEN EXECUTED ON ALL UNITS. IN pert ON, IF THE 

364 /FLAGS:ISR SWITCH IS NOT SET, AND IF MULTIPLE UNITS ARE 

365 BEING de Lg THE PER-UNIT STATUS IS PRINTED AT THE END 

366 OF EACH PASS. ° 

368 IF RUNNING WITH ERRORS INHIBITED (/FLA: IER), AN ERROR 

369 COUNT IS KEPT FOR EACH TEST, AND DISPLAYED AT THE END 

359 OF THAT TEST. THERE ARE NO OTHER PROGRESS REPORTS. 

372 

Bem Be et A en,» ” ianiniatahaamasanaintiie 

374 5.1 EXECUTION TIMES 

RO a amar satis 

377 ; ; SEL Fay WILL VARY aye DEPENDING ON CPU 

378 YPE AND OPERATING MODE. THE FOLLOWING ARE TYPICAL 

te EXECUTION TIMES OBSERVED ON A PDP=11/ 34 SYSTEM: 

381 1ST_PASS SUBSEQUENT PASSES 

382 NORMAL MODE 4.5 MIN 8.6 MIN 

383 DPU ONLY MODE 0.4 MIN 2.35 MIN 

384 LONG MEMORY TEST MODE 5.6 MIN 9.7 MIN 


SEQ 0007 
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SEQ 0008 


THERE ARE THREE CATAGORIES OF TESTS, AS FOLLOWS: 
1. DPU ONLY TESTS (SEC. 6.1) 
2. IMAGE MEMORY & SYNC GENERATOR TESTS & DISPLAYS (SEC. 6.2) 
3. STAND-ALONE TESTS (SEC. 6.3) 

4. 4 FOLLOWING PARAGRAPHS PROVIDE A BRIEF DESCRIPTION OF 

THE TESTING SEQUENCE. REFER TO THE PROGRAM LISTING FOR 

DETAILS. DURING PROGRAM dy ME ha CERTAIN 

MINIMAL TESTING IS DONE IN ORDER TO: 
A. VERIFY THAT THE DEVICE ADDRESS FOR THIS UNIT 


V ° 
B. VERIFY THAT THIS UNIT IS PROPERLY INITIALIZED 
FOLLOWING A BUS-RESET. 


THE FOLLOWING ERRORS MAY OCCUR OUTSIDE THE CONFINES OF 
THE NORMAL TEST SEQUENCE: 


ERR 00000 UNEXPECTED DPU ERROR INTERRUPT. 
ERR 00001 NON-EXISTANT DEVICE REGISTER. ABORT. 
ERR 00002 BUS-INIT DIDN'T INITIALIZE DPU. 


THE FOLLOWING NOTES APPLY TO ALL TEST SEQUENCES: 
1. UNLESS ty ane hy NOTED, TESTING CONTINUES 
AFTER ANY ERROR. 
2. at the KBD INPUTS ARE IGNORED 


FOR: 
<*0> SUPPRESS TTY OUTPUT 
<*> HALT (RETURN TO COMMAND MODE) 


J 
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429 6.1 THE DPU TESTS 


433 THE TESTS IN THIS SECTION ARE THE “DPU ONLY’ TESTS. 

434 THEY ARE RUN WHENEVER THE PROGRAM IS RUN AND THE TEST 

435 SWITCH DOES NOT EXCLUDE THEM. WHEN IN. THE DPU ONLY" MODE 
4 THESE ARE THE ONLY TESTS THAT MAY <WILL) BE RUN. 


440 6.1.1 TEST 1. STATIC RESET 
GA a a a a a -- 


443 EXECUTE A RESET INSTRUCTION AND CHECK EACH APPLICABLE REGISTER 
444 FOR ITS CORRECT STATIC STATE. 


448 6.1.2 TEST 2. RESET ONES 


451 SET ALL REGISTERS TO ONES, CHECKING THAT ONES GOT SET, THEN 
452 EXECUTE A_RESET INSTRUCTION AND CHECK EACH REGISTER FOR ITS 
453 CORRECT STATIC STATE. 


457 6.1.3 TEST 3. SOFT INIT ONES 


460 SET ALL REGISTERS TO ONES, CHECKING THAT ONES GOT SET, THEN 
461 EXECUTE A SOFTWARE INITIALIZE AND CHECK EACH REGISTER FOR ITS 
462 CORRECT STATIC STATE. 


6.1.4 TEST 7 REGISTER UNIQUE ADDRESS 


469 ALL hehe tak ARE SET TO THEIR NORMAL STATIC STATE VIA SOFT ‘INIT. 
470 EACH APPLICABLE REGISTER, IN TURN, IS SET TO ITS CAPACITY FOR ONES. 
471 THEN ALL OF THE OTHER REGISTERS ARE CHECKED THAT THEY REMAINED STATIC. 


475 6.1.5 Test S. INCREMENT ING REGISTERS 


478 INCREMENT AND CHECK EACH REGISTER TO THE LIMIT OF ITS CAPABILITY. 





K 
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SEQ 0010 
481 6.1.6 TEST 6. DPU START-STOP , 

482 - % waar — eer ec eee] SSS we ee = wa 

483 = 

484 TEST 1 VERIFIES THAT THE DISPLAY PROCESSER (DPU) CAN 

489 EXECUTE START, STOP, RESUME, NOP, AND JUMP INSTRUCTIONS. 
487 | wipes 
a ne Tg 58 tes 

489 6.1.7 TEST 7.__DPU OPCODES : / to 

SOS caer paren oe E 

492 ALL OPCODES WHICH TRANSFER PIXEL INTENSITY DATA TO THE 
493 DPU (100000 THRU 130000) ARE EXECUTED AND THE DSR IS 

494 TESTED TO VERIFY THAT THE PIXEL DATA WAS RECEIVED AND 
495 RETURNED BY THE DPU. ALL POSSIBLE VALUES OF PIXEL DATA 
496 ARE PASSED WITH EACH OPCO 

497 THEN ALL REMAINING OPCODES EXCEPT BIT MAPS (134000, AND 
498 136000). JUMP (160000). AND STOP. (172000) ARE EXECUTED 
499 UITH BITS <9:0> OF THE OPC ODE WORD SET TO ZERO AND WITH 
500 NO FOLLOWING DATA WORD. IN THIS. CONFIGURATION. NEACH 

501 OPCODE (INCLUDING THOSE UN-DEFINED) SHOULD. APPEAR AS 

50 “NOP’' AS FAR AS FINAL REGISTER CONTENT IS CONCERNED. 
506 6.1.8 TEST 8.  INCREMENTING HISTOGRAM BASE ADDRESS 

508 

509 SET BASE HISTOGRAM AND INCREMENT THE BASE ADDRESS REGISTER TO 
510 ITS CAPACITY. 

511 

315 

31% 6.1.9 TEST 9. INCREMENTING CHARACTER BASE ADDRESS 

516 

517 SET BASE CHARACTER AND INCREMENT THE BASE ADDRESS REGISTER TO 
518 ITS CAPACITY. 

519 

520 

= 5 EES ee mn ey a ee 

522 6.1.10 TEST 10.  DJMS/DPOP 

Ee Se eee ‘ 

525 CHECK THE OPERATION OF THE JUMP TO SUBROUTINE INSTUCTION, 
326 INCLUDING THE ENABLE BIT AND THE PCSAVE REGISTER. 

359 

330 6.1.11 TEST 11. MAIN MEMORY MGT ACCESS (OVER 28k) 

532 

533 CHECK MAIN MEMORY MANAGEMENT ACCESS FOR ALL AVAILABLE MEMORY 
534 OVER 28K. 
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536 (SS eS oh a ee eS Se EE ES ee ee eS ee 
rt 6.1.12 TEST 12. AUX MEMORY MGT ACCESS (OVER 28k) 
539 
an9 CHECK AUX MEMORY MANAGEMENT ACCESS FOR ALL AVAILABLE MEMORY 
542 
543 
544 weTrewwrewr ewe eee ee Oe (oe ee cee ae oe 
oe 6.1.13 TEST 13. STOP INTERRUPT 
547 
548 THIS TEST VERIFIES THAT THE STOP INTERRUPT LOGIC IN 
549 THE DPU FUNCTIONS CORRECTLY. VARIOUS COMBINATIONS OF 
550 STOP INSTRUCTIONS WITH INTERRUPT ENABLED AND DISABLED 
551 ARE EXECUTED. 
552 
553 
S54 a a a a a 
$22 6.1.14 TEST 14. DPU TIMEOUT INTERUPT 
557 
558 IN THIS TEST, A NON-EXISTANT MEMORY ADDRESS IS PASSED TO 
559 THE DPU PC. IT SHOULD RESPOND WITH A TIME-OUT INTERRUPT 
560 BACK TO THE CPU. 
561 
562 . 
S65 a a a a a a a a a a a 
564 6.1.15 TEST 15. ERROR CODES 
567 GENERATE EACH ERROR CONDITION POSSIBLE (TO SOFTWARE) 
oo8 CHEEK FOR APPROPRIATE ERROR CODE GENERATION. 
@.ia 
570 Eph 
571 2------------------------- 
of6 6.1.16 TEST 16. ADDRESS RELOCATE 
574 
575 THIS TEST VERIFIES THAT THE DPU CAN CALCOLATE AN 18° B17 
576 PC FROM AN INITIAL 16 BIT PC, PLUS THE CONTENTS + OF THE 
577 12 BIT RELOCATE REGISTER. 
578 SINCE THE 2 HIGH ORDER ADDRESS - ‘BITS ARE INVISIBLE, THE 
579 TEST RELIES ON THE FACT THAT ANY. CALCULATED PC WHICH ys 
580 EXCEEDS 18 BITS IN henge WILL BE TRUNCATED TO "3 BITS * 
581 (1.E. WRAP AROUND TO 000000). 
582 THE TEST USES ALL COMBINATIONS OF RELOCATE FACTOR AND 


583 INITIAL PC THAT YIELD A FINAL PC WITHIN THE TEST BODY. 


m1 
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SEQ 0012 

586 6.1.17 TEST 17. CHARACTERS 
es ieee ees 
589 IN THE VSV11, THERE IS NO HARDWARE CHARACTER GENERATOR. 
590 INSTEAD, CHARACTER MODE CAUSES A SUBROUTINE CALL TO A 
591 SUBPICTURE DISPLAY FILE WHICH CONTAINS THE CODE TO DRAW 
592 THE DESIRED CHARACTER OR SYMBOL. THE CHARACTER SUB-PIX 
593 ADDRESS IS OBTAINED BY USING THE ASCII CHAR CODE TO 

INDEX INTO AN ADDRESS TABLE WHICH CONTAINS THE STARTING 
595 ADDRESSES OF THE CHAR SET. 
596 THE STARTING ADDRESS OF THE ADDRESS TABLE 1S SET WITH 
597 THE SET CHAR BASE" INSTRUCTION, AND EACH HAR SUB-PIX 
598 IS TERMINATED WITH A “DPOP"* INSTRUCTION. 
599 THIS TEST USES 1 COMMON, SUBROUTINE AS A’ PSUEDO-CHARACTER 
600 AND SETS A UNIQUE BASE ADDRESS FOR EACH CHARACTER CODE 
601 SUCH BASE + 2(C0 UBROUTINE ADDRESS. 
602 THE FULL ASCII SET (OOO'> 179) 1S TESTED IN THIS MANNER, 
604 IF THE PROGRAM IS NOT RUNNING IN DPU-ONLY MODE, THE FULL 
605 CHARACTER SET IS THEN DISPLAYED ON THE SCREEN TWICE: IN 
606 THE TOP DISPLAY, THE CHARACTERS ARE SITUATED ON EVEN-NUM~- 
607 BERED SCAN LINES, WHILE IN THE BOTTOM DISPLAY THEY ARE ON 
608 ODD-NUMBERED SCAN LINES. 
610 
5 
612 6.1.18 TEST 18. ABSOLUTE POINTS 
614 
615 THIS TEST VERIFIES THAT THE DPU CAN EXECUTE ABSOLUTE 
616 POINT MODE INSTRUCTIONS UTILIZING THE FULL RANGE OF X/Y. 
617 (1) PLOT ALL X POINTS, HOLDING Y AT 0. 
618 (2) PLOT ALL Y POINTS” HOLDING X AT 0. 
619 (3) PLOT ALL POINTS WHERE X 
620 THE X AND Y POSITION REGISTERS ARE TESTED AS EACH POINT 
622 BY DEFAULT, PIXEL DATA ARE TRANSFERRED TO THE IMAGE 
$54 MEMORY, AND DISPLAYED ON THE MONITOR (IF THERE IS ONE). 
625 THE IMAGE MEMORY AND VIDEO DISPLAY MAY BE INHIBITED 
626 BY RESPONDING <YES> TO THE “RUN DPU TESTS ONLY" QUERY 
627 AT START TIME. 
628 
629 
630 nee nnn nnn ne ene 
631 6.1.19 TEST 19. LONG VECTORS 
O36 S222 22 e222 222222228222 Rooditeidieetl 
634 GENERATES LONG VECTORS WITH POSITIVE DELTA X/Y FROM 
635 X,Y = 0,0 TO ALL POINTS WHERE X = Y (FANS DIAGONALLY 
636 FROM BOTTOM TO LEFT EDGE). THEN A SIMILAR, PATTERN 
637 USING NEGATVE DELTA X/¥ STARTING AT X X, 
638 THE X AND ¥ POSITION REGISTERS ARE TESTED AS EACH 
639 VECTOR IS DRA 


641 VIDEO DISPLAY IS INHIBITED IF ‘DPU ONLY’’ WAS SPECIFIED. 
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643 ecceceeocooeeeoooeoeeoeoeca 

G44 6.1.20 TEST 20. ~_ RELATIVE POINTS 

646 

647 VERIFY THAT THE DPU CAN GENERATE RELATIVE POINTS FROM 
648 X.Y = 1000,1000 USING THE FULL RANGE OF DELTA X/Y 

649 (76 TO +76) 

650 (1) P T ALL X POINTS, HOLDING Y AT -76. 

651 (2) PLOT ALL Y POINTS. HOLDING X AT -76. 

652 (3) PLOT ALL POINTS WHERE X 

633 THE X AND Y POSITION IS VERIFIED As EACH POINT IS DRAWN. 
635 VIDEO DISPLAY IS INHIBITED IN "DPU ONLY'’ MODE AS BEFORE. 
657 

658 weeeeceeeeeoooeooooeocecon 

659 6.1.21 TEST 21. SHORT VECTORS 

$6 ecoceeceooeoeceocoescesan 

662 SIMILAR TO TEST 10 ABOVE, EXCEPT USING SHORT VECTORS. 
664 

665 come em m eee ee 

666 6.1.22 TEST 22. RUN LENGTH 

+14 eeeeeceeceoeoeesoesoeoe 

669 CHECK ALL ASPECTS OF THE RUN LENGTH MODE. 

671 IF RUNNING ‘DPU ONLY’ MODE, YOU WILL SEE ‘‘END-PASS"* 

672 AT THIS POINT. ALL OF THE REMAINING TESTS REQUIRE 

673 THE SERVICES OF THE IMAGE MEMORY 

675 

676 ececoeoeeoeoe eeeeeceecoooeoesen 

678 6.2 IMAGE MEMORY & SYNC GENERATOR TESTS & DISPLAYS 

680 ee ee oe ee Se we Sn ee eS oe we a ee 

682 THE TESTS e DISPLAYS IN THIS SECTION REQUIRE THE SERVICES 
683 OF THE IMAGE MEMORY AND SYNC GENERATOR MODULES. 

684 IF THE PROGRAM IS BE UN IN 

685 THE 'DPU ONLY’ MODE, THES EN TESTS MAY NOT (WILL NOT) BE RUN. 
686 . OTHERWISE, THEY WILL BE RUN IN SEQUENCE AS LONG AS THEY 
687 ARE NOT INHIBITED BY THE TEST SWITCH. 

$90 

691 6.1.23 TEST 23. CURSOR REGISTERS/SW1TCH/MATCH 

693 

694 THE CURSOR POSITION REGISTERS JOYSTICK STATUS ENABLES 
695 THE ‘SOFT’ SWITCH, SWITCH INTERRUPT AND MATCH INTERRUPT 


ARE TESTED FOR EACH AVAILABLE SYNC GENERATOR CHANNEL. 


2 ee, 
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698 


6.2.1 


6.2.2 


6.2.3 


6.2.4 


TEST 24. GRAPH/HISTOGRAM X 


GRAPH PLOT ALL X POINTS BETWEEN 200 AND 1600 (IN 30 
UNIT RE bok t anth es OF Y INCREMENT. 


< x 230, Y INCR 4 


INCR 76 
THEN REPLOT ath Behr! IN_HISTOGRAM MODE TO A RELATIVE 
BASE LINE WHERE BASE = X- 
THE X AND Y POSITION REGISTERS ARE TESTED AS EACH POINT 
IS PLOTTED (IN BOTH MODES). 


IF RUNNING ‘'DPU ONLY'’ MODE, THIS AND ALL FOLLOWING TESTS 
ARE NOT RUN. 


TEST 25. GRAPH/HISTOGRAM Y 


SAME AS TEST 11, EXCEPT PLOT IN Y. 


VERIFIES THAT BIT MAP MODE 1 A he ae CORRECTLY FOR 
nes Whine RUN LENGTHS (0 TO 511.) AND IN BOTH 4 BIT 


XEL MODES. 

A 256 WORD BUFFER I FILLED WITH THE VALUE 000377, WHICH 
WILL YIELD A 2 ON, 2 OFF PATTERN OF 4 BIT PIXELS AND/OR 
A 1 ON, 1 OFF enitehn OF 8 BIT PIXELS. 


THE X AND Y POSITION IS VERIFIED AT THE END OF EACH 
BIT MAP OPERATION. 


VERIFIES THAT BIT MAP MODE 0 FUNCTIONS 
CORRECTLY IN ALL IT*S VARIATIONS. 


SEQ 0014 
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6.2.5 


6.2.6 


6.2.7 


6.2.8 


TEST 28. IMAGE MEMORY CLEAR/SET 


NOTE: THIS TEST AND THE ONE FOLLOWING REQUIRE THE 
SERVICES OF THE PIXEL-READ-BACK FUNCTION. 


VERIFIES THAT THE IMAGE MEMORY ‘'CLEAR TO ZERO’’ AND 
"SET TO DATA‘ INSTRUCTIONS FUNCTION CORRECTLY. 
( HE E I AND SELECTED 


PI IED. 
(2) THE IMAGE MEMORY IS ‘SET TO ALL 1°S'' AN 
SELECTED PIXELS READ-BACK AND VERIFIED. 


IN ‘SHORT MODE'', TEST ALL X ADDRESSES FOR ay A _AND 2 
(EVEN VS ODD), THEN TEST ALL Y ADDRESSES F = 0. 
IN "LONG MODE'', TEST ALL PIXEL ADDRESSES 


ti PART 2 OF THIS TEST FILLS THE IMAGE MEMORY WITH 
ALL 1°S. THE VIEWING AREA SOULD BE ALL WHITE == ANY 

BLANK SPOTS ARE EITHER BAD IMAGE MEMORY LOCATIONS OR 

BURNED SPOTS ON THE CRT PHOSPHOR. 


CHECK FOR MEMORY INTERLACE BY WRITING A HORIZONTAL, EVEN 
NUMBERED LINE, AND CHECKING THAT BACK THE ‘‘LINE'’ ABOVE THE ONE 
WRITTEN READS BACK AS ZERO. 


TEST 30. IMAGE MEMORY PATTERNS 


VERIFIES THAT A GIVEN PIXEL CAN BE SET TO ALL POSSIBLE 
BIT COMBINATIONS, AND THAT THE READ-BACK FUNCTION CAN 
CORRECTLY READ THAT DATA. 


“SHORT’’ AND "‘LONG'’ MODE OPTIONS APPLY AS BEFORE. 


TEST “31. “SPARE 


RUNS AS A BLANK TEST 
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811 


00 00 Co 00 00 Co Co 
ad ed Sd cd ed edd oe 
CON AUIS WI 


819 


6.2.9 


6.3 


6.3.1 


TEST 32. SYSTEM VERIFICATION DISPLAY 


THIS TEST PROVIDES ONE TEST PATTERN IN WHICH ALL 
GRAPHICS FUNCTIONS ARE EXERCISED: 


1. CHARACTERS AT BUTTOM center’ 
¢: EDGE CLIPPING AT LOWER LEFT AND UPPER RIGHT. 

- THREE OCTAGONS gh A LONG ph (LARGE ONE), 
SHORT VECTORS (2 SMALL ONES), AND SOME 
RELATIVE POINTS INSIDE THE SMALL ONES. 
4. GRAPH=HISTOGRAM Y AT UPPER LEFT. 
5. GRAPH-HISTOGRAM X AT LOWER RIGHT. 
6. BIT MAPS == MODE 1 AT BOTTOM, MODE 0 AT TOP. 
7. A_CIRCULAR V aH tere. AT CENTER, SHOWING 16 
8 
9 


COLOR/ INTENSITY 
- A_PERIMETER OUTLINE OF THE DISPLAY. 
. STATIC FOR 2 SECONDS, THEN BLINKING FOR 2 SECONDS. 


STAND~ALONE TESTS & ROUTINES 


THE TESTS AND ROUTINES IN THIS SECTION ARE re too 
THEY ARE NOT INCLUDED IN THE NORMAL TEST SEQUENCE AND 
MUST BE RUN BY UNIQUE START COMMAND 


IE. START/TEST:NN<CR> OR RESTART/TEST:NN<CR> 


TEST 33. JOYSTICK VERIFICATION 


THIS 1S ALTEST FRAME FOR THE JOYSTICK. AND INCLUDES 
3 NESTED BOXES (CO-ORDINATES LABELED) AND AN IN@LINE 
READ-OUT OF THE CURRENT JOYSTICK POSITION. 

‘SWITCH" INTERRUPT IS MARKED BY AN "X' AT THE CURRENT 


to- RDS. 
A mare INTERRUPT (ON THE BOXES ONLY) IS MARKED BY 
AN X My Fe VE, AND BY THE WORD ‘MATCH’ DISPLAYED AT 


UPPER R 





SEQ 0016 
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RRARAAAAARAR ERR RE 
vi™ 


SO OONAOUSWN—OOONO 


6.3.2 


6.3.3 


7.0 


SELECTED DISPLAYS 


THIS IS A PATTERN GENERATOR FOR COLOR MONITOR CONVERGENCE 


SET-UP. 


T INCLUDES THE FOLLOWING PATTERNS SELECTABLE BY 


THE USER AT WILL. 


— SS S| OONAUES WN O 


Who 


NOTE: 


TEST 35. 


“TYPE THIS'' (ON CONSOLE) 
TURN ON BLINKING 
TURN v4 a 


COLOR 

7x7 C CROS ti HATCH 
PERIMETER OUTLINE 
BASIC COLOR ID 


GUNS ID 

ALL_WHITE SCREEN 

ati aap tickets SCREEN & PERIMETER OUTLINE 
ALL GREEN SCREEN 


SELECTIONS 4 THROUGH 6 ALSO tote y+: ‘. PERIMETER 
OUTLINE OF THE SCREEN, IN WHICH EACH SIDE OF THE 
OUTLINE sat 3 *DOTS'’. SELECTIONS 3, 7 AND 8 
INCLUDE A SOLID WHITE PERIMETER OUTLINE. 


SYSTEM CONF IGURATION TYPE-OUT 


PRINT ON THE CONSOLE THE CONFIGURATION OF THE VSV11 SYSTEM. 


PROGRAM LISTING FOLLOWS: 


»NLIST BEX 
-DSABL GBL 
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PROGRAM HEADER 


903 
904 
905 
906 000000 
907 
908 
909 
910 
911 
912 
913 
914 000001 
915 000001 
916 000001 
917 000001 
918 000001 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 002000 
931 
932 
933 
934 
935 
936 174561 
937 000000 
938 000000 
939 
940 002000 
941 002000 
002000 
002000 103 
002001 126 
002002 126 
002003 123 
2004 101 
002005 000 
2006 000 
002007 000 
002010 
002010 101 
002011 
002011 060 
002012 
002012 000000 
002014 
002014 001217 
002016 


¢€ 
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SEQ 0018 


.SBTTL PROGRAM HEADER 


»MCALL SVC 
SVC : INITIALIZE SUPERVISOR MACROS 


TT TIMKTUNES PARE AE Te ee TEST 
-REQ SPMAC.SML (OR THE CURRENT EQUIVALENT) 
3 eet STRUCT 
: STRUCT 
LIST GLOBAL TAGS AT_RIGHT MARGIN. 

1 DITTO TEST TAGS. 
1 DITTO SUBTEST TAGS. 

1 DITTO ANY OTHER TAGS. 
SVCINS= 1 : DITTO INSTRUCTICNS AND DATA. 


; THESE SYMBOLS CONTROL THE LISTING FIELD OF ALL SVC MACRO 
; EXPANSIONS. YOU MAY CHANGE THEM AT ANY TIME OR PLACE. 


1 = RIGHT-JUSTIFY ag tS IT EASY TO DISTINGUISH 


SVC°S MACRO CODE F 
0 = oi ee Mg aon A nar af “ FASHION) . 


-1 = LIST T ALL. 
 UALUALUELELLESAULRELRLLEEE ELLER LE SLO LEO RA TREE L ELLE LLL ELE TE 
-ENABL ABS,AMA 
i= 2006 


; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
: THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


PRGSIZ= <L$LAST>/16. |; PROGRAM SIZE IN 1/8 K UNITS (OCTAL). 
SVCGBL= 0 : ALIGN THE HEADER STUFF. 
SVCINS= 0 
POINTER BGNSW,BGNSFT,BGNAU,BGNDU,BGNRPT 
HEADER CVVSA.A,0,655..0 
LSNAME : : :O1AGNOSTIC NAME 
ASCII /C/ 
ASCII /V/ 
ASCII /V/ 
“ASCII /S/ 
“ASCII /A/ 
YTE 0 
“BYTE 0 
“BYTE 0 
LSREV:: :REVISION LEVEL 
ASCII /A/ 
LSDEPO:: 30 
ASCII /0/ 
LSUNIT:: ;NUMBER OF UNITS 
.WORD 0 
LSTIML:: sLONGEST TEST TIME 
.WORD 655. 
LSHPCP: : :POINTER TO H.W. QUES. 
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PROGRAM HEADER 
002016 


002240 
002522 
002224 
002502 
113404 
000000 
000000 
000000 
000000 
107114 
000000 
000000 
000000 


003 
003 


000000 
000000 


000000 
002162 
033272 
000000 
000000 
033012 
033110 
000000 
002122 
104035 
000000 
032014 
033220 


LSSPCP: 
LSHPTP: 
LSSPTP: 
LSLADP: 
LSSTA:: 
L$CO:: 

LSDTYP: 
LSAPT:: 
LSDTP:: 
LS$PRIO: 
LSENVI: 


LSEXP1:: 


LSMREV: 


LSEF:: 


LSSPC:: 
LSDEVP: 
LSREPP: 
LSEXP4: 


LSEXPS:: 


LSAUT:: 
LSDUT:: 
LSLUN:: 


_ «WORD 
" ,WORD 
* WORD 
"WORD 
” ,WORD 
. WORD 
. WORD 
* WORD 
. WORD 
. WORD 
ane 
* ,WORD 
" «WORD 


BYTE 
“BYTE 


- WORD 
- WORD 


. WORD 
* WORD 
* ORD 
"WORD 

. WORD 

. WORD 

. WORD 

. WORD 


LSDESP:: 
LSLOAD:: 


LSETP:: 
LSICP:: 


LS$CCP:: ° 
W 


« WORD 
EMT 

- WORD 
WORD 
ORD 


L$HARD 
sPOINTER TO S.W. QUES. 
LSSOFT 
zPTR. TO DEF. H.W. PTABLE 
LSHW 
sPTR. TO S.W. PTABLE 
L$Sw 
:DIAG. END ADDRESS 
L$LAST 
0 s;RESERVED FOR APT STATS 
0 
0 DIAGNOSTIC TYPE 
;APT EXPANSION 
3PTR. TO DISPATCH TABLE 
L$DISPATCH 
DIAGNOSTIC RUN PRIORITY 
sFLAGS DESCRIBE HOW IT WAS SETUP 
:EXPANSION WORD 
SVC REV AND EDIT # 
CSREVISION 
CSEDIT 
0 sDIAG. EVENT FLAGS 
0 
0 
; POINTER TO DEVICE TYPE LIST 
LS$DVTYP 
PTR. TO REPORT CODE 
LSRPT 
0 
0 
:PTR. TO ADD UNIT CODE 
L$AU 
:PTR. TO DROP UNIT CODE 
L$DU 
0 LUN FOR EXERCISERS TO FILL 
:POINTER TO DIAG. DESCRIPTION 
LSDESC 
GENERATE SPECIAL AUTOLOAD EMT 
ESLOAD 
0 POINTER TO ERRTBL 
:PTR. TO INIT CODE 
LSINIT 
zPTR. TO CLEAN-UP CODE 
LSCLEAN 


SEQ 0019 
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PROGRAM 


—J 


HEADER 


033216 
032004 
000000 
000000 
000000 


052 


126 


000001 


177777 


052 


123 


052 


126 


LSACP:: 
WORD 

LSPRT:: 
WORD 


LSTEST:: 
WORD 
LSDLY:: 
WORD 


LSHIME::- 


:PTR. TO AUTO CODE 
LSAUTO 

;PTR. TO PROTECT TABLE 
LSPROT 
0 ; TEST NUMBER 


sDELAY COUNT 
;PTR. TO HIGH MEM 


. WORD 
DESCRIPT <**** VSV11-VS11 DIAGNOSTIC ****> 


LSDESC:: 


ra 
DEVTYP <VSV11-VS11, AND DISPLAY MONITOR> 
“ASCIZ /VSV11=VS11, AND DISPLAY MONITOR/ 


L$DVTYP 


SVCINS==1 


/x%*% VSV11-VS11 DIAGNOSTIC ****/ 


; SHOVE EVERYTHING BACK TO THE RIGHT. 


: KILL ALL SVC STUFF. 


SEQ 0020 
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DEFAULT HARDWARE P-TABLE SEQ 0021 
953 .SBTTL DEFAULT HARDWARE P=TABLE 
gag ; 
; + 

956 : THE DEFAULT HARDWARE P=TABLE CONTAINS DEFAULT VALUES OF 
957 + THE TEST=DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
998 : IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 
960 002222 : BGNHW DFPTBL :DEFAULT KARD=P=-TABLE 
962 002224 172010 .WORD 172010 ; 1ST (OF 4) REGISTER(S). 

: LUT INSTALLED i 
964 002226 000320 .WORD 320 t 1ST (OF 4) "WERTOR 

; ( 5 IF LUT INSTALLED ). 
966 002230 000200 .WORD PRI04 t INTERRUPT PRIORITY 
967 002232 000000 “WORD 0 : LUT AVAILABLE (IF NONZERO) 
968 002234 000000 “wORD 0 : = 60HZ 


SYNC FREQUENCY: 0 = 
NZ = 50HZ 


969 
970 002236 ENDHW 
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104 105 126 
1 002340 061 123 124 : =. ASCIZ 
992 002370 111 116 124 HPM3: .ASCIZ /INTERRUPT PRIORITY 
114 125 124 :  =ASCIZ INSTALLED 
eee 002450 106 122 105 ° * /FREQUENCY = S50HZ 
996 002500 


~~ NNN 


ENDHRD 


VSV11/VS11 == GRAPHIC SYS. DIAG MA 

HARDWARE PARAMETER CODING SECTION 
972 .SBTTL HARDWARE PARAMETER CODING SECTION 
974 ‘ ; 
975 : THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
976 > THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. T 
977 > MACR E EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
978 ; INTERPRETED a THE SUPERVISOR AS DATA STRUCTUR THE 
979 : MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNI CAT IONS 
980 : WITH THE LOPERAT OR. 
982 002236 BGNHRD 
984 002240 GPRMA HPM1,0,0,160000,177776, YES ;GET 1ST REGISTER ADDRESS. 
985 002250 GPRMA HPM2,2,0,0,776,YES :GET 1ST VECTOR ADDRESS. 

002260 GPRMD HPM3.4.0,340,0.7,YES  :GET INTERRUPT PRIOR ity. 

987 002272 GPRML HPM4.6,-1-Y tASK IF LUT AVA 
988 002300 GPRML HPM5.10,-1,YES TASK IF FREQUENCY © LEO HZ. 
989 002306 EXIT HRD 
990 002310 HPM1: .ASCIZ /DEVICE ADDRESS 
991 002 HPM2 : 71ST INTERRUPT VECTOR 


SEQ 0022 
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SOFTWARE P=TABLE SEQ 0023 
998 -SBTTL SOFTWARE P-TABLE 
G99 
1000 3 ++ 
1001 3; THE SOFTWARE P=TABLE CONTAINS THE VALUES OF THE PROGRAM 
i 3; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 
1004 002500 BGNSW SFPTBL 
1005 002502 000000 DPUMOD:: .WORD 0 ; DPU/MEM TEST MODE... 
1006 Py 0 = RUN ALL.. 
1007 +. ..NZ = RUN DPU ONLY. 
1008 002504 000000 IMTMOD:: .WORD 0 3; IMAGE MEMORY TEST MODE . ee 
1009 gece = SHORT T eee 
1010 Ses = LONG ° 
10171 002506 000000 TIDFLG:: .WORD 0 : TEST ID'S... 
1012 Secs @ 8 TV YPE TEST ID AT EACH TTET START.. 
1013 3 «NZ = DON’ 
1014 002510 000000 NOITS:: .WORD 0 3 INHIBIT ITERATION OPTION. 
1015 3 eee O = ITERA c- 
1016 3 .-eNZ = INHIBIT ITERATE. 
1017 002512 000000 MFGFLG:: .WORD 0 3; MANUFACTURING TEST MODE... 
1018 je. O = USER/FIELD SVC... 
1019 sees = MANUFACTURING. 
1020 002514 000031 LERRMAX: : WORD 25. ; LOCAL (PER TEST) ERROR LIMIT 
1021 002516 000310 GERRMAX: : WORD 200. ; GLOBAL (PER UNIT) ERROR LIMIT 
1022 002520 ENDSW 
1023 
1024 
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VSV11/VS11 == GRAPHIC SYS. 
SOFTWARE PARAMETER CODIN 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


BIKAR OSS 


Ww 


3 — os 


M—CVOONAOULSWN—O”O 
ooo —% 
VO NM 


RAREERRRREEEE 


-SBTTL SOFTWARE PARAMETER CODING SECTION 


: : THE SOFTWARE PARAMETER CODING SECTION CONTAINS a. 
: THAT ARE USED BY THE SUPERVISOR TO BUILD P=TABLES. THE 
: MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
: INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
: MACROS ALLOW THE SUPERVISOR TO ESTASLISH COMMUNICATIONS 
; WITH THE OPERATOR. 


GET MEM TEST ° 
;GPRML SPM3.4,-1,YES GET TEST ID CONTROL 
GPRML SPM4,6,~1,YES GET ITERATION CONTROL. 


P & 
GPRML SPM5.10,-1,YES : 
GPRMD SPM6,12.D,7777,0,7777,YE 


Gee Se Se tee 
a 
mn 
~ 
> 
o 
S 
tet 


GPRMD aoee of .7777,0,7777,YES ; GET GLOBAL ERROR LIMIT 
SPM1: .ASCIZ /RUN DPU TESTS ONLY / 
SPM2: .ASCIZ /LONG MEMORY TESTS / 
3SPM3: .ASCIZ /INHIBIT TEST ID'S / 
SPM4: .ASCIZ /INHIBIT ITERATIONS / 
SPMS: .ASCIZ /MANUFACTURING MODE / 
SPM6:  .ASCIZ /PER TEST ERROR LIMIT / 
SPM7: eosee /PER UNIT ERROR LIMIT / 


EO ee 


; GET OPTIONAL DPU ONLY FLAG. 
MODE 


NG MODE. 
: GET LOCAL ERROR LIMIT 


“Seen tee ae a 
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GLOBAL EQUATES SECTION 


| 


1060 
1061 003020 


-SBTTL GLOBAL EQUATES SECTION 


iT THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
:_ARE USED IN MORE THAN ONE TEST. 


EQUALS ; GET STANDARD EQUATES. 
DIF INITIONS 
19900 


20 


nnnhnnnnnhnnknne 
_ 
So 
So 
So 


BOODWDVIOIOIOOOWOOIOOWM::::-+ 
bt tt nt —-4 4-4 th ~4 bea fe me eng Gg bee bing Bee baw bong bem beg beng Pena bd bo 


Ee a LL ie ee ee ee ee ee) 


So—NWWEUOA NWO 


nnnnnnnnne 
@aowoww 
hae ay 
pe. 
So 
* 


B1T00 ‘ 


: EVENT FLAG_DEFINITIONS 
EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


F..START== 32. : START COMMAND WAS ISSUED 
F.RESTART== 31. : RESTART COMMAND WAS ISSUED 
F.CONTINUE== 30. : CONTINUE COMMAND WAS ISSUED 
F .NEW== 29. : A NEW PASS HAS BEEN STARTED 
F .PWR== 28. : A POWER-FAIL/POWER-UP OCCURRED 
PRIORITY LEVEL DEFINITIONS ( 

PRIO7== 340 

PR106== 300 
PRI0S== 240 

PRI04== 200 

PRI03== 140 
PRIO02== 100 


SEQ 0025 


we 
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| 
saree. EQUATES SECTION SEQ 0026 
000040 PRIO1== 40 
| 000000 PRIOO== 9 
[OPERATOR FLAG BITS 
004 EVL== 4 
000010 LOT== 10 
20 ADR== 20 
040 IDU== 40 
000100 ISR== 100 
000200 UAM== 200 
0400 BOE == 400 
001000 PNT== 1000 
2000 PRI== 2090 
4000 IXE== 4006 
010000 IBE== 10000 
020000 IER== 20000 
040000 LOE== 40000 
100000 HOE== 100000 





_——SKS eT 
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MEMORY MANAGEMENT DEFINITIONS 


1068 .SBTTL MEMORY MANAGEMENT DEFINITIONS 
1006 :*KT11 VECTOR ADDRESS 

s+ 000250 MMVEC= 250 

190 3*KT11 STATUS REGISTER ADDRESSES 
1072 177572 SRO= 177572 

1073 177574 SR1= 177574 

1074 177576 SR2= 177576 

Ore 172516 SR3= 172516 

Or Z*KERNEL ‘‘I'' PAGE DESCRIPTOR REGISTERS 
1079 172300 KIPDRO= 172300 

1080 172302 KIPDRI= 172302 

1081 172304 KIPDR2= Hes 

1082 172306 KIPDR35= 172306 

1083 172310 KIPDR4= 172310 

1084 172312 KIPDR5= 172312 

1085 172314 KIPDR6= 172314 

ie 172316 KIPDR7= 172316 

eee z*KERNEL ‘'I'' PAGE ADDRESS REGISTERS 
1090 172340 KIPARO= 172340 

1091 172342 KIPAR1= 172342 

1092 172344 KIPAR2= 172344 

1093 172346 KIPAR3= 172346 

1094 172350 KIPAR4= 172350 

1095 172352 KIPARS= 172352 

1096 172354 KIPAR6= 172354 

1097 172356 KIPAR7= 172356 


a 


SEQ 0027 


—_——-—- 
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VSV-11 INSTRUCTION EQUATES. SEQ 0028 


1099 .SBTTL VSV=11 INSTRUCTION EQUATES. 

110 ‘PLOTTING INSTRUCTIONS. 

1103 100000 CHAR== 100000 : CHARACTER MODE. 

1104 104000 SVEC== 104000 ‘SHORT VECTOR MODE. 

1105 110000 LVEC== 110000 [LONG VECTOR MODE. 

1106 114000 APNT== 114000 SABSOLUTE POINT MODE. 

1107 120000 GHX== 120000 :GRAPH/HISTOGRAM X MOD 

1108 124000 GHY== 124000 :GRAPH/HISTOGRAM Y MODE 

1109 130000 RPNT== 130000 SRELATIVE POINT MODE. 

1111 :PIXEL DATA FIELD <10:2> FOR THE ABOVE OPCODES. 

1113 002000 (LO0==  BIT10 ; LEVEL 0 (BLACK) IS JUST THE ENABLE. 
1114 003774 L255== L0O!<255.*BIT2> +: LEVEL 255 IS THE MAX POSSIBLE. 
1115 003774 ALL== 1255 

1116 003774 ALLB== 3774 ; ALL INTENSITIES (WITH BLINK). 
11? 003374 ALLNB== 3374 + ALL INTENSITIES (WITHOUT BLINK). 
1119 ; 

1120 :COLOR DEFINITIONS: 

1121 003774 WHITE == *03774 ; ALL 

1122 002400 RN1 == *0<400! 2000 : BIT8!LO 

1123 3000 GRN2 == *0<1000!2000> =: BIT9!LO 

1124 003400 GRN3 == GRN1!GRN2 : BIT8'BIT9 

1125 002200 EDG == *0<200!2000> =: BIT7ILO 

1126 002100 BLUEG == *0<100!2000> =: BIT6!LO 

1127 003600 YELLOW == 'REDG 

1128 003500 EGGBL == GRN3!BLUEG 

1129 003300 VIOLET == GRN2!REDG!BLUEG 

1130 003200 GOLD == GRN2!REDG 

1131 002300 MAGEN == REDG!BLUEG 

1133 : COLOR LOOK-UP-RAM DEFINITIONS. 

1135 010000 LREAD== 1*BIT12 : CSR == READ DATA FROM ADDR <7:0>. 
1136 002000 LDI== 1*BIT10 ; INTERRUPT ON READ/WRITE DONE. 
1138 010000 LSET== 1*BIJT12 : DATA REG <= SET ALL ADDRESSES TO... 
1139 :...DATA PATTERN IN <11:0>... 

aay 3..BLU<11:8>, GRN<7:4>, RED<3:0>. 
1142 000100 GCOFF== 1*BIT : MAINT REG == GAMMA CORRECT OFF. 
1143 000040 CVC== 1*BIT : COMP VIDEO > MDAC (READ-ONLY). 
1144 000020 REDC== 1*BIT4 : RED DAC > MDAC (READ-ONLY). 
1145 000010 GRNC== 1*B]T3 : GRN DAC > MDAC (READ-ONLY). 
1146 000004 BLUC== 1*B]T2 : LU DAC > MDAC (READ-ONLY). 
1147 MDVO== 0 > SET MAINT DAC TO 0-9 ' 

1148 1 MDVi== 1 : 5 V. 

1149 00000 MDV2== : : 1.0 V. 

1130 00000 MDV3== : 1.35 V. 

113¢ + BIT MAP MODE DEFINITIONS. 

1154 136000 BM14== 13600 : MODE 1 WITH 4 BIT PIXELS. 

1155 137000 BM18== 13598 MODE 1 WITH 8 BIT PIXELS. 
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1128 ; PIXEL COUNT IN <8:0>. 

1158 134000 BM04== 134000 ; MODE QO WITH 4 BIT PIXELS. 

1159 135000 BMO8== 135000 ; MODE 0 WITH 8 BIT PIXELS. 

1160 000000 M32== 0 : 32 SQUARE PIXEL ARRAY. 

1161 000001 M64== 1 3 .64 SQUARE. 

1162 000002 M128== § 3 128 SQUARE. 

1163 000003 M256== ; SQUARE. 

1164 000010 EX2== 10 ; EXPAND BY 2, NO SMOOTHING. 

1165 000020 Ex4== 20 : EXPAND BY 4, NO SMOOTHING. 

1166 00050 EXSM2== 50 ; pes 4 SMOOTH 8 

1167 000060 EXSM4== 60 ; D SMOOTH BY 4. 

1168 000100 R256== 100 : BX x "256 RESOLUTION. 

1169 000400 RND8== 400 ; ROUND FOR 8-BIT-WIDE IMAGE MEMORY 

vy 000200 ODDSKP== 200 ; SKIP ODD-NUMBERED LINES ON SCREEN (FOR NON-INTERLACED) ;a@al 
1172 144000 RNLN== 144000 sO OKBLE FOR RUN@-LENGTH MODE 

1173 000100 DBLPIX== BIT6 OUBLE THE PIXEL COUNT 

1174 000040 YDOWN== BITS ; DISPLAY LINES TOP-TO-BOTTOM 

1175 000400 RLSKIP== BIT8 :SKIP LINES, WITHOUT THROWING THE DATA AWAY 
1176 ; (FOR RUN=LENGTH MODE ONLY) 

1177 : SKIPS EVEN LINES IF START ON EVEN, & VICE-VERSA 
1178 162000 IMREAD== 162000 
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11m : CONTROL AND STATUS INSTRUCTIONS. 
1182 146040 éuorF== 146040 CURSOR (JOYSTICK) VIDEO OFF. 
1183 146060 CUON== 146060 CURSOR VIDEO ON. 
1184 146100 CURD== 146100 sREAD JSX,JSY =>_DXR,D 
1185 146016 CUIM== 17eni8 : INTERRUPT ON MATCH (SWITCH DISABLED). 
1186 146013 CUIS== 14601 : INTERRUPT ON SWITCH saga DISABLED). 
1187 146012 CUIOFF== 146012 INTERRUPTS (BOTH) OFF 
1188 175000 CUWT== 175000 : CURSOR WR 
1189 175000 LDCP== 175000 CURSOR POSITION (=CUWT) 
1190 146000 LDJSS== 146000 ;LOAD JOYSTICK STATUS DISPLAY INSTRUCTION 
1191 175400 LDECC== 175400 ; LOAD raven CURSOR CONTROL 
1192 000002 SWCHON== 148 : SOFT SWITCH ON. 
1193 175401 BLINK== 175401 : BLINK 
Bb 175400 NBL INK==175400 ; NO BLINK. 
1196 000002 JSWE == BIT1 : JOYSTICK SWITCH-ENABLE WRITE ENABLE 
1197 00001 JSWD == BITO : JOYSTICK SWITCH-ENABLE WRITE DATA 
1198 000010 JMWE == BITS ; CURSOR MATCH-ENABLE WRITE ENABLE 
1199 000004 JMWD == BIT2 : CURSOR MATCH@ENABLE WRITE DATA 
1200 000040 JCWE == BITS ; CROSSHAIR-INTENSITY WRITE-ENABLE 
120) 000020 JCWD == BIT4 ; CROSSHAIR-INTENSITY WRITE DATA 
1203 
1204 150000 SETHB== 150000 SET GRAPH/HISTO BASE LINE. 
1so2 152000 SETCB== 152000 SET CHARACTER BASE ADDRESS. 
1207 160000 DJMP== 160000 DISPLAY JUMP. 
1208 160001 DJMS== 160001 :DISPLAY JUMP~TO=SUBROUT INE 
1209 164000 DNOP== 164000 :DISPLAY ee 
1210 165000 DPOP== 165000 :DPOP = RTS F ROM CHARACTER SUB-PIX. 
1211 164001 SYNC== DNOP+1 ; PROCEED IN SYNC = DNOP + N <8:0>. 
1212 WAITS FOR N OCCURRENCES OF VERTICAL... 
1213 «+eSYNC START, THEN PROCEEDS... 
1214 3...(16. @ 60H2 OR 20MS a 50HZ). 
1Si2 000001 AUXSEG== BITO :SPECIFY AUX. SEGMENT IN DISPATCH ADDRESSES. aaa! 
1217 170200 SWTCH== 170600 sSWITCH READ/WRITE STATUS. 
1218 170140 CLRMEM== 170140 SCLEAR IMAGE MEMORY 
ist) 170100 SETMEM== 170100 ;SET IMAGE MEMORY TO CURRENT PIX DATA. 
1221 2000 STOP== 172000 DISPLAY STOP. 
1222 171000 SIOFF== 171000 ;STOP INTERRUPT DISABLE. 
1223 171400 SION== 171400 i STOP INTERRUPT ENABLE. 
1224 73000 STOPN== STOP! SIOFF STOP, DO NOT INTERRUPT. 
196? 173400 STOPI== STOP!SION ;STOP AND INTERRUPT. 
1227 174100 GXI== 174100 3SET X INCREMENT <5:0> FOR GRAPH/HST Y. 
1338 174100 GYI== GX] :SET Y INCREMENT <5:0> FOR GRAPH/HST X. 
1230 01 HCPY== aire 7 ENABLE ~COPY. 
1231 000010 SWE== BIT sENABLE SWITCH RD/WRT. 
1232 6000 PROTEC== 176000 sPROTECT MEMORY (OFF). 
1233 176050 == 176040! SwE :READ MEM Oi TeUAY SWITCH ENABLED. 
1234 176034 WRT== 176024!SWE sWRITE MEM (1°S AND 0°S), SWITCH ENABLED 
1235 176036 WRT1== 176026! SWE sWRITE MEM (1°S ONLY), SWITCH ENABLED. 
1236 176074 RDWRT== READ! WRT ;READ, WRITE ALL DURING RETRACE. 


eo 
nn ee 
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1237 176076 RDWRT1== READ! WRT1 sREAD, WRITE 1°S DURING RETRACE. 
iss 176051 HCOPY== READ! HCPY sREAD MEM => HARD COPY DEVICE. 
1240 000000 CHO== 0 ; CHANNEL SELECT BITS... 

1241 000400 CHi== BI1T8 300 0FO MEMORY CONTROL. 

1242 001000 Sa ae BIT9 3. eeINSTRUCTIONS (176XXX). 
ise? 001400 CHS== BIT8!BIT9 

1245 000000 JSO== CHO ' 3 JOY-STICK UNIT TAY BITS.. 
1246 000400 JS1== CHI ¢+++FOR CURSOR CONTR 

1247 001000 JS2== CH2 z.eeINSTRUCTIONS (146XXX). 
1248 001400 JS3==  CH3 
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Mronononononorofponononofnononferora 
AAAQQDQAMMINIVIVNVIVI 
WRC OONAUSWWNH—O 


VUUVUVE RRR 
SRI ISSE BAR 


mr 
NN 
NO 


me mee ee ee a ee ee ee ee ce ee a ek ek et ed ed ad nd 8d 
S 
oO 


040000 


010000 
001776 


000776 


001776 
000776 


001676 
000736 


000002 
000002 
000004 


SEQ 0032 


sOTHER USEFUL DEFINITIONS. 


== BIT14 
MSX== BIT13 
MSY== BI1T6 
MXY== BIT13 

== BIT13 
HST== BIT14 
CGRPH== BIT13 
FHST== HST!BIT13 


GHIINH== BIT12 
MAXX== 511.*%2 
MAXX 
HAFX== <MAXX/2>-1 
== HAFX 
= 511.*2 
= <MAXY50/2>-1 


MAXY60== <511.-32.>*2 
HAF Y60== <MAXY60/2>~-1 


; INTENSIFY VECTOR ” POINT. 
INUS SIGNS 


:M 

t..eSHORT FORM VECTOR DAT 

sMINUS SIGN FOR LONG FORM DATA. 

;ANOTHER MINUS SIGN 

[USE GHX/GHY DATA AS HISTOGRAM. 

[USE GHX/GHY DATA AS CONNECTED GRAPH 

[USE GHX/GHY DATA AS FILLED HISTOGRAM (BAR-GRAPH) 
; INHIBIT ERROR DURING PLOT. 


zMAXIMUM X ADDRESS (512 X 512 X 2). 


; SAM Y. 
;HALF MAX X (CENTER SCREEN). 
:SAME FOR Y. 


;MAX_ VISIBLE Y ON SOHZ SYSTEM. 
sHALF VISIBLE Y. 


3MAX VISIBLE _Y ON 60HZ SYSTEM. 
sHALF VISIBLE Y. 


DX== sDELTA X (1 PIXEL UNIT). 
DYI== DX DELTA Y, INTERLACED MODE. 
DYNI== DX*2 [DELTA Y, NON-INTERLACED MODE. 
3;DSR REGISTER SELECT CODES: 
SELDSR== 0 SELECT REAL DSR 
SELPCS== 1 SELECT PCSAVE 
SELFLG== 2 SELECT FLAGS 
SELCSR== 3 SELECT CSR 
SELMRR== 4 >SELECT MAIN RELOC 
SELMPM== SELMRR ;SELECT MAIN PROTECT 
SELXRR== 6 SELECT AUX. RELOC 

LXPM== SELXRR ;SELECT AUX. PROTECT 
SELHBA 5 ;SELECT H-BASE 

LCBA== 7SELECT C-BASE 

== :DSR WRIT 


W BIT3 

SE TMRR==SELMRR ! WE 

SE TMPM==15 

SETXRR==SELXRR! WE 

SETXPM==1 

WRTCSR==SELCSR! WE 
:; we 


Ss 
SETFLG==CLFLGS 


;" WRITE" prions FOR DXR (BITS ee i 


PIXRBK== 0*8 

WRTJSS== 1*B]T14!B1T10 
RSTPOS== 2*B1T14 
WRTCPX== 3*BIT14 
GTJSSW== BIT14 


E-ENABLE 
3SET MAIN~SEG gi bh REGISTER TO 0... 
OR MR!<ADDR/2> TO RELOCATE. 
: SET MAIN-SEG PROTECTION. 


SET REAL aan, 
: SET THE CSR REGISTER. 
: CLEAR THE FLAGS REGISTER. 


ADBACK =~ <15:14>=00 

SWRITE JOYSTICK STATUS REGISTER == <15:14>=01 

:RESTORE T RUE X-Y POSITION TO 
WRITE CURSOR POSITION X-COORDINATE == <15:14>=11 

[GET JOYSTICK SWITCH INTERRUPT COORDINATES 


DXR,DYR -- $13; 14>=10 ;@aal 


7 


ae 


H 3 
VSV11/VS11_== GRAPHIC SYS. DIAG MACRO M1113 28-OCT-81 11:23 PAGE 26-1 


VSV-11 INSTRUCTION EQUATES. 


1307 
1308 
1309 
1310 040000 
1311 100000 
1312 140000 
1313 
1314 
1315 000040 
1316 000100 
1317 000200 
1318 
1319 
1320 000001 
1321 000002 
1322 000004 
1323 000010 
1324 
1325 
1326 
1327 100000 
1328 104003 
1329 114003 
1330 124003 
1331 120003 
1332 140003 
1333 144003 
1334 150003 
1335 
1336 
1337 
1338 010000 
1339 010000 
1340 04000 
1341 042000 
1342 160000 
1343 
1344 
1345 
1346 
1347 
1348 000403 
1349 000402 
1350 000401 
1351 000400 
1352 
1353 
1354 
1355 
1356 
1357 000004 


;"WRITE’’ FUNCTIONS FOR DYR (BITS 15-14): 
;__PIXEL READBACK IS THE SAME = 00 
WRTMSR==_1*B1T14 

SINIT== 2*BIT14 
WRICPY== 3*B1T14 


:CSR BIT DEFINITIONS: 
FORCSI== BITS sFORCE STOP INTERRUPT 
ENECHK== BIT6 ;ENABLE ERROR CHECKING 
ot BIT? ; CHANNEL PROTECT 


aaa! 
FLAGS | kite BIT POSITIONS: 
= BIT sPENDING INTERRUPT, CHANNEL A 
; PENDING vie CHANNEL 6B 
PVEC2== BIT2 ;VECTOR BIT 2 FOR INTERRUPT 
JSLCKO== BITS ;JOYSTICK INTERRUPT LOCKOUT 


; ERROR CODE DEFINITIONS. 


;PERFORM "'SOFT=INIT'' == <15:1 


ERR== 100000 ; ERROR (COMPOSITE). 
NXME== ERR!4000!SELCSR ; NONEXISTANT MEMORY 
MPE== ERR!14000!SELCSR ; 


!SELC MORY PROTECTION ERROR. 
RSVDOP== ERR!24000!SELCSR ; RESERVED OPCODE, RESERVED OPERATION. 
SEQERR== ERR! 20000!SELCSR ; SEQUENCE ERROR. 
TO== ERR!40000!SELCSR ; SYNC TIMEOUT FROM IMAGE ME 


SYNC MORY. 
DAVTO== ERR!44000!SELCSR ; DATA AVAILABLE TIMEOUT (PIXEL READBACK). 


DRDYTO== ERR!50000!SELCSR ; DATA READY TIMEOUT (JOYSTICK STATUS). 
:DXR, DYR BITS 


CHIE ==B1T12 ; CROSSHAIR INTENSITY ENABLE STATUS (1=0N) 
JSMIES ==BIT12 : JOYSTICK MATCH INTERRUPT ENABLE STATE 
JSSIES ==BIT11 : JOYSTICK SWITCH INTERRUPT ENABLE STATE 
WJSS ; WRITE JOYSTICK STATUS REGISTER 


WECC -==160000 t WRITE EXTENDED CURSOR CONTROL 


SKP3= BR+3 ;SKIP NEXT 3 WORDS. 
SKP2= BR+2 SKIP NEXT 2 WORDS. 
SKP1= BR+1 SKIP NEXT WORD. 
SKPO= BR+0 ;SAME AS A NOP. 


> SOME GENERAL EQUATES. 


ERRVEC== ; POINTER TO ERROR VECTOR FOR BUS TIME OUT. 


WRITE MEMORY gotarye REGISTER A aK» <15:14>=01 


SEQ 0033 


[WRITE CURSOR POSITION ySCOORDINATE “= <15:14>=11 
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SPECIAL MACROS AND OPDEFS. SEQ 0034 
leer ~SBTTL SPECIAL MACROS AND OPDEFS. 
1366 000000 EN=0 3; INITIALIZE ERROR NUMBER 
1364 ; MACRO TO XCT MEMORY SETUP FUNCTIONS (STAT C INSTRUCTIONS) 
1365 ; VAILD FUNCTIONS ARE: 
1366 ; PROTEC, READ, WRT, WRT1, RDWRT, RDWRT1, HCOPY. 
1368 «MACRO SETUP rs N1 Ne - N4 
1369 “IIF NB <N1> FUNC! CH' 
1370 -IIF NB <N >; FUNC! CH’ N2 
1371 ~IIF NB <NS>,  FUNC!CH'N 
1372 -1IF NB <N4>,  FUNC!CH'NG 
132? ~ENDM SETUP 
1375 ; MACROS FOR maurt ied VECTOR DATA. 
1376 ; CALLING ARGUMENTS ARE: 23 
1377 3 A= INTENSIFY 6 BIT, ‘I’ OR ‘U"’. 
1378 3 B = DELTA X, ated THRU da (76 IF SHORT TYPE). 
13 ; C = DELTA Y 
1381 «MACRO SXY A,B,C ;ASSEMBLE SHORT (1 WORD) DATA. 
1382 “1 = 40000 
1383 -DX = B*200 
1384 oy =C 
1385 -lIF IDN <U> <A>, .1 = 0 
1386 -IIF LT 8B, .DX = * <-B*200>! 20000 
1387 -IIF LT C, .DY = <=C>!100 
1388 -WORD .I!.DX!. 
if a4 ~ENDM XY 
1391 «MACRO LXY A,B,C ;ASSEMBLE LONG (2 WORDS) DATA. 
1392 -I = 40000 
1393 DX = 
1394 bY =C 
1395 -IIF IDN <U> <A>, .I = 0 
1396 -IIF LT B, .DX = <=B>!20000 
1397 -IIF LT C, .DY = <=C>! 20000 
1398 . WOR -1!.DX, .DY 
13 NDM  LXY 
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MACROS TO STANDARDIZE THE INITIALIZATION OF EACH TEST. 
PROVIDES AN ASCIZ TITLE STRING, AND POINTER 
SUBSEQUENT PRINTING. (IF REQ'D) VIA “PRINTE. TNAM, TNUM" CALL. 
ALSO INITS A SEQUENTIAL ERROR NUMBER SEQUENCE, AND 

SETS AN ITERATION COUNT FOR THE CURRENT TEST. 


sMACRO BEGIN.TEST TEXT,LK,?TAG1,?TAG2 


oO 
WG 


Be Se Be Be te Ge Se 


SISAR 


MO OONAUSWN $C OONAUSWN—OOON 


«RADIX 10 
TSTITLE \TN+1,<TEXT>,<LK> 

-RADI 

e-NLIST 

LIST MC 

. IST 
BGNTST 
TN=TSTESTNUM TEST NUMBER 
EN=TN*100. ; INIT ERROR NUMBER SEQUENCE. 
-IIF B <LK>, MOV #1 ,LOOPK ;DEFAULT = 1. 
-IIF NB <LK>, MOV #Lk ,LOOPK 
MOV #TN, TNUM sSET TEST NUMBER... 
MOV #TAG1, TNAM t..AND NAME POINTER. 


BR T 5 an OVER THE ASCII. 
3TAG1: .ASCIZ \%NZATEST %D2%A:° TEXT\ 
TAG1: oar \ZA_ TEXT\ 


TAG2: 
.ENDM BEGIN. TEST 


; THIS MACRO IS USED BY MACRO "BEGIN.TEST'’ MACRO, ABOVE. 


-MACRO Wgryree A,ASCI,1 
~-SBTTL *** TEST ° ASCI 
»NLIST 
~LIST ME 

ST 


WAWWANIRNNINNNNNDNID 2 2 2 2 oO 


WwW 


BURAK 


SEEKERS 


BRRRRRRRRRRRR RE RRS RRR RRR ERROR RRR RRR RRR RRS 


ee eS Ee ee ee EE __ Oe e .._.__.__ e ee ) 


39 * 
40 o BEGIN TEST 'A' =  ASCI 
ri ITIITITITITIIITITIL TTT LLL LLL ELL LL LLL EEL LE LLL EEE ELLE EEE LLL 
44d : (ITERATION COUNT = I) 
466 -NLIST 
447 ~NLIST ME 
448 .LIST 
449 .ENDM ——“TSTITLE 
re 
43¢ + MACROS TO STANDARDIZE THE END OF EACH TEST. 
454 $ 
455 «MACRO END.TEST 
456 .NLIST 
457 -RADIX 10 


OEE eee 
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1458 
1459 
1460 
1461 
62 


3S Ss SS SS 4 SS 
SESSESRES 
SSSaSETE. 


1471 


1501 


ad a 
DAVAO LL LAL LL 
RWIS SHSVSAR ANOS 


Mist MC 
T ME 


ENDTN \TN 


ENDTST 
.ENDM END. TEST 
: THIS MACRO IS USED BY "END. TEST’’ MACRO, ABOVE. 
: .MACRO ENDIN A 
Z MARBABAAALAALALLAZALLLLLLELALAELLS SESE SEES ERE RES RRR SESE ERR RRR EET ES SPCC Ce PCa a SS 
ie END TEST 'A* 
ot 
ITITITITITITITITILI TILT TI LILI LI TTL LL LLL LEE LL LLL LEE EE EEE ELLE ELL 
.ENDM — ENDIN 
> MACROS TO DEFINE SEQUENTIAL ERROR NUMBERS FOR 
t SUBSEQUENT SUPERVISOR ERROR 
: REQUIRES PRIOR USE OF "BEGIN. TEST MACRO. 
i .MACRO SFERR ADDR,PNTR : SYSTEM FATAL. 
Js PC, INCERK 
ERRSF EN.ADDR,PNTR 
JSR PC; CKDROP 
SFERR 
.MACRO DFERR ADDR, PNTR, CK : DEVICE FATAL. 
Js PC, INCERK 
ERRDF EN,ADDR,PNTR 
JSR PC. CKDROP 
IF NB. CK 
“ENDM DFERR 
.MACRO SFTERR ADDR,PNIR,CK : SOFT ERROR. 
JS PC, INCERK 
ERRSOFT EN,ADDR,PNTR 
JSR PC. CKEMAX 


IF NB, CK 


-ENDM = SFTERR 
MACRO HRDERR ADDR,PNTR,CK ; HARD ERROR. 


SEQ 0036 
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1515 «NLIST 
1516 «NLIST ME 
1517 LIST 
1518 EN=EN+1 
1519 J PC, INCERK 
1520 ERRHRD EN,ADDR,PNTR 
1521 JSR PC, CKEMAX 
1522 F . 
1523 CKLOOP 
1524 -ENDC 
1525 .ENDM  HRDERR 
1526 
138 
13 : MACRO = DO SOME COMMON STUFF AT THE BEGINNING OF A TEST. 
1531 -MACRO COMBEG 
1532 IST 
1533 ~LIST ME 
1534 «LIST 
1535 JSR PC,TSTGO ; TITLE. 
1536 JSR PC,,DPRESET : DO SOFT INIT. 
1537 «NLIST ME 
1538 -ENDM COMBEG 
139 
136) 3; MACRO = DO SOME COMMON STUFF AT THE END OF A TEST. 
1543 -MACRO COMEND TAG,?L,?X 
1544 .NLIS 
1545 -LIST ME 
1546 -LIST 
1547 JSR PC SLOOP ; REPEAT ‘TIL LOOPER EXPIRES. 
1548 BCS L - 
1549 BR xX 
1550 
+e L: JMP TAG 
1553 K: JSR PC, TSTEND : PRINT ERROR SUMMARY, IF REQ'D. 
1554 -NLIST 
1555 -NLIST ME é 
1556 LIST 
1557 -ENDM COMEND 
1558 
1559 : 

l 1369 z MACRO TO CONTROL ITERATION LOOPS. 

1562 -MACRO LOOPTO TAG 
1563 -NLIST 
1564 -LIST ME 
1565 LIST 
1566 JSR PC,LOOP 
1567 BCS TAG 
1568 «NLIST 
1569 eNLIST ME 
1570 LIST 
1571 -ENDM  LOOPTO 








ee ee ee ee —_—— a ee ee - - 
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—_— 
wi 
~N 


SNS 
Jaros 


SSELEARALAS 


BRASS 


& 


BSSVH OOOO G00 009 094000 90 0H ~~ I sd 
™N 


ee ee Le Le ee) 


SAO 
Wwn— 


Nm 
NO ODNOAUSWN—0O”O0 


; MACRO = WRITE FROM SPEC'D DATA SOURCE INTO SPEC'D DSR ACCESS REGISTER. 
: ONLY _ FLG, CSR, MRR, MPM, XRR, XPM ARE VALID ARGUMENTS FOR ‘DSRREG'’. 


«MACRO WIDSRA DATSRC,DSRREG 


«NTYPE .NT,DATSRC 


IF -NT&*077-* 027 
re DATSRC&*C17! SET "DSRREG, aDSR 
Vv MSET'DSRREG’.RO ; WRITE DATSRC INTO DSRREG . 
BIS DATSRC,RO 
MOV RO,a@DSR 
- ENDC 
-NLIST 
-NLIST MEB 
-ENDM WTDSRA 


; MACRO = READ ty SPEC*D DSR ACCESS REGISTER INTO SPEC'D on DESTINATION. 
; ONLY DSR, PCS, FLG, CSR, MRR, MPM, XRR, XPM, HBA, CBA ARE VALID 
@pSRREG'” ARGUMENTS. 


-MACRO RDDSRA DSRREG,DATDST 


MOV #SEL*DSRREG* ,@DSR ; READ DSRREG INTO DATDST . 
MOV a@DSR,DATDST 


NLIST 
-NLIST ME 
«LIST 
-ENDM RDDSRA 


; MACRO - IF R1=R2, BRANCH TO OK, ELSE CALL HARDWARE ERROR. 
-MACRO IFERROR ARG1,ARG2, ?0K$,CK 


-NLIST 

LIST ME 

LIST 
CMP R1,R2 3; OK? 
BEQ OK ; YES. 
HRDERR ARG1,ARG2,CK 3; NO. 

e-NLIST 

LIST ME 

LIST 

OK$: 

eNLIST ME 


-ENDM ~=IFERROR 


SEQ 0038 


—_————_ re 
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| 
| 1629 


F.O.O.R FO... 
SRIFARANS 


WDONAUSWN—OO 


AAAS Ses 5 S555 sre 


AAAS 
VM 
Who 


a ed ed ad aed eed ad ed 
MMNMIVIwnV 
NMOS OONOUS 


e 


SESSSE 
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: MACRO = IF R1=R2 AND R3=R4, BRANCH TO OK, ELSE CALL HARDWARE ERROR. 


-MACRO IFERRX2 ARG1,AR 


e-NLIST 

LIST ME 

LIST 
CMP R1,R2 
BNE ERR 
CMP R3,R4 
BEQ OK 

ERR: HRDERR ARG1,ARG2,CK 

eNLIS 

LIST ME 

LIST 

OK$: 

-NLIST ME 


-ENDM = IFERRX2 


G2, ?0K$, 7ERR,CK 


: Ist ITEM OK? 
* 2ND ITEM OK? 
: VES. 


My NO. 


; MACRO - aaa ahd og ts THE DPU. THIS DIFFERS FROM ‘DPINIT’’ 


ASSUMED THAT THE DPU IS STOPPED AND 


a I 
; NOT HUNG UP. SECOND, NO CHECKING IS DONE BY THIS CODE. 


+ IN TWO WAYS. 


-MACRO_ INITDP 
JSR PC,DPINIT 


-ENDM ~=INITDP 


«MACRO DPSTART ADRS 


MOV ADRS ,aDPC 
JSR - PC,WAITF 


-ENDM = DPSTART 
DPCONT 


#81T0,aDPC 
PC ,WAITF 


: GO DO SOFT INIT, CHECK THE STATE. 


; START THE DPU. 
; WAIT FOR DISPLAY STOP. 


3 CONTINUE THE DPU. 
; WAIT FOR DISPLAY STOP. 


SEG 0039 


1 
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SPECIAL MACROS AND OPDEFS. SEQ 0040 
1686 .ENDM DPCONT 
1688 :MACRO TO DO A 3-OPERAND BIT-SET: 
1689 .MACRO BISW3 $1,S2,DST 
1690 .NLIST 
1691 “LIST MEB 
169 LIST 
169 -NTYPE .NT,DST 
1694 -IF Q, .NT&*070 
1695 MOV DST 
1696 BIS $1,DST 
1697 FF 
1698 MOV $2,-(SP) 
1699 BIS $1, (SP) 
1700 MOV (SP)+,DST 
1701 ENDC 
1702 .NLIST 
1703 “NLIST MEB 
1704 “LIST 
1705 .ENDM BISW3 
1707 yMACRO TO DO A 3-OPERAND BIT-CLEAR: 
1708 -MACRO BICW3 $1,S2,DST 
1709 .NLIST 
1710 “LIST MEB 
1711 “LIST 
1712 .NTYPE .NT,DST 
1713 “IF ,.NT&*070 
1714 MOV ‘DST 
1715 BIC $1,DST 
1716 FF 
1717 MOV $2,-(SP) 
1718 BIC $1, (SP) 
1719 MOV (SP)+,DST 
1720 .ENDC 
1721 .NLIST 
1722 “NLIST MEB 
1723 “LIST 
172 .ENDM = BICW3 
1726 ;MACRO TO SET UP THE INTERRUPT MASK AND PRIME THE INTERRUPT FLAG: 
1727 .MACRO INTSET IEX 
1728 .NLIST 
1729 “LIST MEB 
1730 “NLIST ME 
1731 “LIST 
1732 IF NB TEX 
1738 Ov, #°0177400! IOKCKIN! 10K" IEX, INTMASK ; PRIME FLAG, EXPECT IEX 
1735 MOV #°0177400! IOKCKIN, INTMASK ; PRIME FLAG, NO INTR. EXPECTED. 
1736 ENDC 
1737 .NLIST 
1738 “NLIST MEB 
1739 “LIST 
1740 .ENDM —_INTSET 
1741 
1742 
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SPECIAL MACROS AND OPDEFS. SEQ 0041 
1g 
109 > MACRO TO FORCE IN-LINE RETURN FROM REAL OR IMAGINED INTERUPT. 
1747 7 .MACRO FORRTI 
1748 .NLIST 
1749 “LIST ME 
1750 LIST 
1751 MOV #.+6, (SP) : FORCE RTI RETURN TO - 
1752 RTI + = NEXT LOC. 
1753 .NLIST 
1754 "NLIST ME 
1755 “LIST 
1756 .ENDM —- FORRTI 
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USER PATCHABLE FLAGS SEQ 0042 
1758 .SBTTL USER PATCHABLE FLAGS 
1580 
1761 : THE FOLLOWING LOCATIONS MAY BE PATCHED BY THE USER 
176¢ : TO OBTAIN THE RESULTS DESCRIBED FOR EACH. 
1764 ‘ 
1765 003020 000000 FORCER: 0 ; FORCE rye ALL HARD ERRORS (THE ONES CALLED - 
1766 : = BY THE MACRO "‘IFERROR''). AN ERROR NEED NOT - 
1767 t = EXIST, JUST ASSUME AND TYPE THE MeSSAGr. 
135 
1771 003022 001700 MFGMO: 1700  ; MANUFACTURING MEMORY 0 MASTER SPECIFICATION. 
1772 ; IN MANUFACTURING MODE, MEMORY 0 IS COMPARED 
1773 : WITH THIS VALUE WHEN SYSTEM CONFIGURATION IS 
1774 : EXECUTED. DISCREPANCY IS REPORTED. 
1729 : (CURRENTLY SHOWN FOR 4 BIT MEMORY.) 
1777 003024 120000 MFGSO: 120000 ; MANUFACTURING SYNC CHAN 0 MASTER SPECIFICATION. 
1778 ; IN MANUFACTURING MODE, SYNC CHAN 0 IS COMPARED 
1779 : WITH THIS VALUE WHEN SYSTEM CONFIGURATION IS 
1780 : EXECUTED. DISCREPANCY IS REPOR 
1781 > (CURRENTLY SHOWN FOR INTERLACED SYNC CHAN.) 
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GLOBAL DATA SECTION SEQ 0043 


1783 .SBTTL GLOBAL DATA SECTION 

1784 

1785 Lae 

1786 : THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 

1787 : IN MORE THAN ONE TEST. 

1788 i= 

176 

1791 t THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME. 

179 : SINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P=TABLE. 
1794 003026 000000 UNITN:: 0 ZUNIT # UNDER TEST. 

1795 003030 000000 QvP:: 0 SQUICK VERIFY FLAG. 

1797 $ 

1798 :DEVICE REGISTER ADDRESSES *** KEEP IN THE ORDER GIVEN *** 
1800 003032 172010 bPC:: 172010 ZDISPLAY PC 

1801 003034 DRR:: 

1802 003034 172012 DSR:: 172012 :DISPLAY STATUS REGISTER (ALSO REL REG). 
1803 003036 172014 DXR:: 172014 [DISPLAY X POSITION REGISTER. 

1804 003040 172016 DYR:: 172016 [DISPLAY Y POSITION REGISTER. 

1806 003042 172020 LSR:: 172020 : LOOK-UP-RAM STATUS. 

1807 003044 172022 LDR:: 172022 : DATA. 

1808 003 172024 LMR:: 172024 : AND MAINT REGISTERS. 
1810 003050 0002 DPRI:: PRIO4 ; INTERRUPT PRIORITY. 

1811 003052 000320 STPV:: 320 ‘STOP VECT 

1812 003054 000324 JSMV:: 326 :JOY-STICK MATCH VECTOR. 

1813 003056 000330 TOTV:: 330 :TIME-OUT VECTOR 

1814 003060 000334 JSSV:: 334 :JOY-STICK SWITCH (DEMAND) VECTOR. 
1815 003062 000340 LUTV:: 340 t LUT READ/WRITE DONE VECTOR. 

1817 003064 040000 OPTI:: I ZOPTIONAL "INTENSIFY'' BIT FOR DPU... 
1818 t.e.1F DPUMOD = 0, OPTI = I(NTENSIFY). 
1819 +... OTHERWISE, OPTI = 0 (UNINTENSIFY). 
1821 3 

182¢ : AND THESE ARE SET BY THE IMAGE MEMORY SIZER. 

1824 003066 000004 PDBITS:: 4 :NUMBER OF PIXEL BITS (2, 4, 6, OR 8). 
1825 003070 000100 PDI::  1*BIT6 [PIXEL DATA INCREMENT (MIN INTENSITY). 
1826 003072 001700 PDF:: 178116 SPIXEL DATA FIELD (MAX INTENSITY). 
1827 003074 17607 PDM::  *C<17*BIT6> [PIXEL DATA FIELD MASK. 

1829 ; STANDARD CONFIGURATIONS 

1830 ; BITS PD POF 

1831 ; 1400 

1832 : 4 1 0 1700 

1833 : 6 0 1760 

1834 : 0 1774 
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GLOBAL DATA SECTION SEQ 0044 
1836 ; 
1837 : STORAGE FOR DEVICE REGISTERS 
1839 003076 000000 100000 000000 buMMY: 0.109000 0,0. ;DUMMY DEVICE REGISTERS... 
1840 003106 000000 000000 000000 0,6,6,0,0 
1861 :e.eFOR MULTI-UNIT CHECKOUT. 
1843 003126 000000 IDPC:: 0 ;SAVED DPC ON ANY INTERRUPT. 
1844 003130 000000 IDSR:: 0 : DITTO DSR 
1845 003132 000000 IDXR:: 0 : DITTO 
1846 003134 000000 IDYR:: 0 ; DITTO DYR 
1847 003136 000000 ILSR:: 0 : DITTO LUT CSR 
1848 003140 000000 ILDR:: 0 : DITTO LUT DATA 
1849 003142 000000 ILMR:: 0 : DITTO LUT MAINT. 
1851 ;SAVED "INTERNAL" REGISTERS ON AN INTERRUPT {IN ORDER OF SELECT CODE): 
1852 003144 000000 ISDSR:: 0 ;SAVED "'SELECTED'' DSR 
1853 003146 000000 IPCSAV:: » £ :SAVED PCSAVE 
1854 003150 000000 IFLAGS: : 0 ‘SAVED FLAGS 
1855 003152 ICSR:: 0 SSAVED CS 
1856 003154 000000 IMAIN:: 0 SAVED MAIN SEG. MMGT. 
1857 003156 0 IHBASE : 0 : HISTOGRAM BA 
1858 003160 000000 IAUX:: 0 [SAVED AUX. SEG MMGT. 
1859 005162 000000 ICBASE: : 0 SSAVED CHARACTER BASE 
1861 003164 000000 SpPC:: 0 :SAVED DPC AT ANY OTHER TIME. 
1862 003166 000000 SDSR:: 0 3 DITTO DSR 
1863 003170 000000 SDXR:: 0 ; DITTO DXR 
1864 003172 000000 SDYR:: 0 DITTO DYR 
1865 >SAVED INTERNAL REGISTERS aT OTHER TIMES 
1866 003174 000000 SSDSR:: 0 AVED POELECTED" DSR 
1867 003176 000000 SPCSAV: : 0 ayy ED PCSAVE 
1868 003200 000000 SFLAGS: : 0 : SAV ED FLAGS 
1869 003202 000000 SCSR:: 0 D CSR 
1870 003204 000000 SMAIN:: 0 :SAVED MAIN SEG. MMGT. 
1871 003206 000000 SHBASE 0 3 SAVE HISTOGRAM BASE 
1872 003210 000000 SAUX:: 0 [SAVED AUX. SEG MGT. 
1875 003212 000000 SCBASE: : 0 :SAVED CHARACTER BASE 
1875 : AND FINALLY SOME MISCELLANEOUS REGISTERS. 
1877 003214 000000 SCFLG:: 0 ; SYS CONFIG FLAG (O=1ST TIME, NZ=SUBSEQUENT). 
1878 003216 000000 LUTAV:: 0 ; LUT AVAILABLE FLAG (NZ = USE LUT). 
1879 003220 000000 SHADLY:: 0 ; SHADING DELAY COUNTER (OP OPTIONAL). 
1880 003222 110224 HUE:: | NTSC8+42 : CURRENT COLOR POINTER (OPTIONAL). 
1882 :STIK:: BYTE -1, -1 ; 8 JOY~STICK AVAILABLE FLAGS... 
1883 : “BYTE = -1, -1 3... 1 = I DUNNO... 
1884 3 BYTE -1, -1 sece 0 = NO... 
1885 : BYTE -1. of 3... 04 @ VES. 
1887 003224 000000 DUFLG:: 0 s DROPPED UNIT" FLAG. INHIBITS DPU... 
1888 +...CODE IN CLEAN-UP". 
1889 003226 000000 NODEV:: 0 :FLAG TO SAY NO DEVICE. 
1891 003230 000001 INTLAC:: 1 : INTERLACED MODE 
1892 003232 000000 TEMP1:: 0 [SOME TEMP LOCATIONS. 


4 
VSV11/VS11_ == GRAPHIC SYS. DIAG MACRO M1113 28-OCT-81 11:23 PAGE $1 


GLOBAL DATA SECTION SEQ 0045 
1893 003234 000000 TEMP2:: 0 
1894 003236 000000 XXCOMM: : 0 XXDP+ COMM BLOCK POINTER. 
1899 003240 000000 FREE:: 0 : 1ST erie” MEMORY ADDR A 
1896 003242 000000 FRESIZ:: 0 Rinks 1ZE (IN WORDS). 
1897 003244 000000 KTFLG:: 0 : KT11, MEM AVAIL FLAG - 
1898 i- =_<24k OR NO KT ~ 
1899 - = NZ = >24K AND KT. 
1900 003246 000074 H2:: 60. : LINE FREQUENCY. 
1901 003250 000000 YMAX: : ; MAX Y ACCORDING TO LINE FREQENCY. 
1902 003252 000000 MEMFLG:: 0 : MEM FLAGS (1°S IN BITS 0-3 REFLECT MEMS AVAIL). 
1903 003254 000000 SYCFLG:: 0 {SYNC CHAN FLAGS. (19S IN BITS 0c8 REFLECT SYHE. CHANS AVAIL) 
1904 003256 CTAB: : : CONFIGURATION TABLES. 
1905 003256 MEMTAB: : 
1906 003256 000000 CTABM:: 0 : MEMORY CONFIG WORK. 
1907 003260 000000 0 
1908 003262 000000 0 
1909 003264 000000 0 
1910 003266 177777 -1 : END OF MEM TABLE. 
1911 003270 SYCTAB:: 
1912 003270 000000 CTABS:: 0 : SYNC CHAN CONFIG WORK. 
1913 003272 000000 0 
1914 003274 000000 0 
1915 003276 000000 0 
1916 003300 177777 -1 : END OF SYNC CHAN TABLE. 
1917 003302 CTABE:: : END OF CONFIG WORK AREA. 
1919 ZERROR STATISTICS TABLE (1 WORD PER UNIT), 64 UNITS MAX: 
1921 ; = UNIT NOT TESTED 
1922 : 100000 = UNIT ONLINE, NO ERRORS 
1923 : 1OXXXX = UNIT ONLINE, ENCOUNTERED XXXX ERRORS 
1924 : 160000 = UNIT DROPPED, NON-EXISTENT DEVICE REGISTER 
1925 : 160001 = UNIT DROPPED. NOT IDLE AT START 
1926 : 14XXXX = UNIT DROPPED. ENCOUNTERED XXXX ERRORS 
1 
1 


28 003302 ERTABL: .BLKW 
29 003502 000000 ERTABE: 0 


ooo 
o 
- 
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GLOBAL TEXT SECTION SEQ 0046 
1931 .SBTTL GLOBAL TEXT SECTION 
1932 
1933 3+ 
1934 : THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
1935 : MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
1936 : MORE THAN ONE TEST. 
1938 i 
1939 003504 040 040 116 NXR: ASCIZ / NON-EXISTANT DEVICE REGISTER/ 
1940 003543 045 101 040 NXRX ASCI1Z /%A ADDRESS: %06/ 
1941 003564 045 101 040 PCSX: ASCII] /%A DPC,DSR EXP'D: %06%A, %062%N/ 
1942 003622 045 101 040 "ASCIZ /%A DPC.DSR REC'D: %06%A, %06/ 
1943 003657 045 101 040 XYX "ASCII /%A DXR.DYR EXP'D: %06%A, %062N/ 
1944 003715 045 101 040 "ASCIZ /%A_ DXR.DYR REC'D: %06%A,%06/ 
1945 003752 045 116 045 FUSI: .ASCII /%N%A/ = 
1946 003756 040 040 125 USI: <:ASCIZ / UNEXPECTED "'STOP" INTERRUPT/ 
1947 004014 040 040 042 NSI: -ASCIZ / ‘'STOP’’ INTERRUPT EXPECTED, NOT RECEIVED/ 
1948 004066 045 116 045 FUTO: ASCII /%N%A/ “2 
1949 004072 040 040 125 UTO:  <ASCIZ / UNEXPECTED DPU ‘'ERROR'' INTERRUPT/ 
1950 004135 040 040 104 NTO: .ASCIZ / ODPU ‘‘ERROR'' INTERRUPT EXP'D, NOT REC'D/ 
1951 004206 045 116 045 FUMI: . ASCII /%N%A/ ; re 
1952 004212 040 040 125 UMI: .ASCIZ / UNEXPECTED 'MATCH'’ INTERRUPT/ 
1953 004251 045 116 045 FUSWI: . ASCII /%NZA oi 
1954 004255 040 040 125 USWI:  .ASCIZ / UNEXPECTED '‘SWITCH’’ INTERRUPT/ 
1955 004315 045 116 045 FNOINTR: ASCII /%N%A/ 
1956 004321 040 040 116 NOINTR: .ASCIZ 7 NO INTERRUPT WAS GENERATED/ 
1957 004356 040 040 111 IFAULT: .ASCIZ / INTERRUPT FAULT/ 
1958 004400 045 101 040 INTX:  .ASCIZ "CPU PC: 206%A DPC: %06/ 
1959 004434 040 040 O42 NOINIT: .ASCIZ / ‘BUS-INIT’’ DIDN'T INITIALIZE DISPLAY/ 
1960 004503 040 040 123 SSF:  .ASCIZ / START-NOP-STOP FAILURE/ 
1961 004534 040 040 122 RJF:  .ASCIZ / RESUME-NOP=JUMP FAILURE/ 
196¢ 004566 040 040 112 JSF: .ASCIZ / JUMP SELF FAILURE/ 
1963 004612 040 040 105 ESF: .ASCIZ / EXTERNAL STOP FA 
1964 004642 040 040 120 PDXI: :ASCIZ / PIXEL DATA XFER INCORRECT/ 
1965 004676 040 040 116 OPCF: .ASCIZ / L OPCODE FAIL 
1966 004724 045 116 045 OPCFX: .ASCIZ /%NZA OPCODE: %06/ 
1967 004746 040 040 122 RELF: .ASCIZ / RELOCATION FAILURE/ 
1968 004773 045 116 045 RELFX: .ASCIZ /%N%A_ INITIAL DPC: %06%A, RELOC(DSR): %06%N/ 
1969 005047 040 040 101 APF: .ASCIZ / ABS POINT FAILURE/ 
1970 005073 040 040 114 LVF:  .ASCIZ / LONG VECTOR FAILURE? 
1971 005121 045 116 045 LONGX: .ASCIZ /%NZA ORIGIN: %04%A,%04%A DX,DY: %06%A,2%06/ 
1972 005175 040 040 12 RPF: .ASCIZ / REL POINT FAILURE/ 
1973 005221 040 040 123 SVF:  :ASCIZ / SHORT VECTOR FAILURE/ 
1974 005250 045 116 045 SHRTX: .ASCIZ /%NZA ORIGIN: %04%A,%04%A DXY: %06/ 
1975 005314 040 040 107 GHXF: :ASCIZ / GRAPH=HISTO X FAILURE/ 
1976 005344 040 040 107 GHYF:  .ASCI2Z “HISTO Y FAILURE 
1977 005374 045 116 045 GHXYX: .ASCIZ /%NZA AMPL: Z06%A_ INCR: %02/ 
1978 005431 040 040 hoe BMF: .ASCIZ / BIT MAP FAILURE/ 
1979 005453 045 116 045 BMX: .ASCIZ /%NZA OPCODE: %06/ 
1980 005475 040 040 103 CHRF: .ASCIZ / CHAR MODE FAILURE/ 
1981 005521 045 116 045 CHRFX: .ASCIZ /%NZA BASE: 206ZA CHAR: %03/ 
1982 005556 040 040 12h PRBHNG: .ASCII / TEST ABORTED/ 
1983 005574 040 040 120 PRBH:  .ASCIZ / PIXEL-READ-BACK FAILS OR HANGS DPU/ 
1984 005641 040 040 111 IMDI: .ASCIZ / IMAGE MEMORY DATA INCORRECT/ 
1985 005677 045 101 040 IMDIX: ASCII /%A ADDRESS (X,Y): 2% 104/ 
1986 005733 045 116 045 "ASCIZ /2N%A FIELD: 204%A EXP'D: ZO4%A REC'D: %04/ 
1987 006010 045 116 045 IMDIX2: .ASCIZ /%NZA SUSPECT RAM GROUP %01%A, IMAGE MEMORY CHANNEL: %01/ 
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GLOBAL TEXT SECTION SEQ 0047 
1988 006101 045 116 045 IMDIXC: .ASCII /2NZA ADDRESS (X,Y): 4 %04/ 
1989 006137 045 116 045 ~ASCIZ /%NZA FIELD: %04%A EXP Z04ZA_ REC'D: %04/ 
1990 leg & 045 116 045 eASCIZ /%NZA_ SUSPECT RAM GROUP 201 iA. IMAGE MEMORY CHANNEL: %01/ 
1991 006306 040 040 114 WLRI: .ASCIZ / LUT READ INTERRUPT EXPECTED, NOT RECEIVED/ 
Ie 006362 040 040 114 NLWI: .ASCIZ / LUT WRITE INTERRUPT EXPEC cTED NOT RECEIVED/ 
1993 006437 040 040 125 ULRI: .ASCIZ / UNEXPECTED LUT READ_INTERRUPT/ 
1994 006477 040 040 125 ULWI:  .ASCIZ /. UNEXPECTED LUT WRITE INTERRUPT/ 
1995 006540 5 101 040 LINTX: .ASCIZ /%A CSR: %06/ 
1996 006555 040 040 114 LAIER: .ASCIZ / LUT AUTO-INCR INCORRECT ON READ/ 
1997 006617 040 040 114 LAIEW: .ASCIZ / LUT AUTO=INCR INCORRECT ON WRITE/ 
1998 006662 040 040 114 LDINC: .ASCIZ /. LUT DATA INCORRECT/ 
1999 006707 045 101 040 LRWX: .ASCIZ /%A CSR: 2063) XP*D: Z06ZA_ REC'D: %06/ 
2000 006760 040 040 042 NSINIT: .ASCIZ / “SOF T=INIT’: DIDN'T INITIALIZE THE DPU/ 
2001 007030 040 040 042 BRINIT: .ASCIZ / ‘BUS=RESET’* DIDN'T INITIALIZE THE DPU/ 
007100 040 040 104 IDPCE: .ASCIZ # DPC READ/WRITE ERROR# 

2003 007127 040 040 104 IDSRE: .ASCIZ # READ/WRITE ERROR# 

7156 040 040 103 ICSRE: .ASCIZ # CSR READ/WRITE ERROR# 
2005 007205 040 040 115 IMRRE: .ASCIZ # MRR READ/WRITE ERROR# 

7234 040 040 115 IMPWPE: .ASCIZ # MPM WRITE/MUWP _, READ ERROR# 
2007 007277 040 040 115 IMPME: .ASCIZ # MPM READ/WRITE ERR 
2008 007326 040 040 130 IXRRE: .ASCIZ # a READ/WRITE ERROR 

007355 040 040 130 IXPME: .ASCIZ # READ/WRITE ERROR# 
2010 007404 040 040 130 IXPWPE: .ASCIZ # XPM WRITE/XWP (HBASE) READ ERROR# 
11 007447 040 040 110 IHBAE: .ASCIZ # HBA READ/WRITE ERROR# 

2012 007476 040 040 103 ICBAE: .ASCIZ # CBA READ/WRITE ERR 
2013 007525 040 040 104 JPDPCE: .ASCIZ # DJMS/DPOP FAILURE (DPC)4 
2014 007557 040 040 104 JPPCSE: .ASCIZ # DJMS/DPOP FAILURE (PCS)# 
2015 007611 040 040 104 DPDSE: .ASCIZ / DPC(W),DSR(R) ADRS FAULT/ 
2016 007651 040 040 104 DSDPE: .ASCIZ / DSR(W),DPC(R) DUAL ADRS FAULT/ 
2017 007711 040 040 104 DSDXE: .ASCIZ / DSR(W),DXR(R) DUAL ADRS FAULT/ 
2018 007751 040 040 104 DSDYE: .ASCIZ / DSR(W),DYR(R) DUAL ADRS FAULT/ 
2019 010011 040 040 104 DSPCE: .ASCIZ / DSR(W),PCS(R) DUAL ADRS FAULT/ 
2020 010051 040 040 104 DSFLE: .ASCIZ / DSR(W),FLG(R) DUAL ADRS FAULT/ 
2021 010111 0 040 104 DSCSE: .ASCIZ / DSR(W),CSR(R) DUAL ADRS FAULT/ 
2022 010151 049 040 104 DSMRE: .ASCIZ / DS . ) DUAL ADRS FAULT/ 
2023 010211 040 040 104 DSMPE: .ASCIZ / . DUAL ADRS FAULT/ 
2024 010251 040 040 104 DSXRE: .ASCIZ / DSR(W),XRR(R) DUAL ADRS FAULT/ 
2025 010311 040 040 104 DSXPE: .ASCIZ / D ° DUAL ADRS FAULT/ 
2026 010351 040 040 103 CSDSE: .ASCIZ / CSR(W),DSR(R) DUAL ADRS FAULT/ 
2027 010411 040 040 103 CSPCE: .ASCIZ / CSR(W),PCS(R) DUAL ADRS FAULT/ 
2028 010451 040 040 103 CSFLE: .ASCIZ / CSR(W),FLG(R) DUAL ADRS FAULT/ 
2029 010511 040 040 103 CSMRE: .ASCIZ / CSR(W),MRR(R) DUAL ADRS FAULT/ 
2030 010551 040 040 103 CSMPE: .ASCIZ / -MPM(R) DUAL ADRS FAULT/ 
2031 010611 040 040 103 CSXRE: .ASCIZ / CSR(W),XRR(R) DUAL ADRS F 
2032 010651 040 040 103 CSXPE: .ASCIZ / CSR(W), ) DUAL ADRS FAULT/ 
2033 010711 040 040 115 DSE: .ASCIZ / MRR(W),DSR(R) DUAL ADRS FAULT/ 
2034 010751 040 040 115 MRPCE: .ASCIZ / MRR(W),PCS(R) DUAL ADRS FAULT/ 
2035 011011 040 040 115 MRFLE: .ASCIZ / MR . ) DUAL ADRS FAULT/ 
2036 011051 040 040 115 MRCSE: .ASCIZ / R(W),CSR(R) DUAL ADRS FAULT/ 
2037 011111 040 040 115 MRMPE: .ASCIZ / . DUAL ADRS FAULT/ 
2038 011151 040 040 115 MRXRE: .ASCIZ / MAR(W),XRR(R) DUAL ADRS FAULT/ 
2039 011211 040 040 115 MRXPE: .ASCIZ / MARR(W),XPM(R) DUAL ADRS FAULT/ 
2040 011251 040 040 115 MPDSE: .ASCIZ /, MPM(W),DSR(R) DUAL ADRS FAULT/ 
2041 011311 040 040 115 MPPCE: .ASCIZ /° MPM(W),°CS(R) DUAL ADRS FAULT/ 
2042 011351 040 040 115 MPFLE: .ASCIZ / MPM(W), ) DUAL ADRS FAULT/ 
2043 011411 040 040 115 MPCSE: .ASCIZ / MPM(W), ) DUAL ADRS FAULT/ 
2044 011451 040 040 115 MPMRE: .ASCIZ / MPM(W), ) DUAL ADRS FAULT/ 
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GLOBAL TEXT SECTION SEQ 0048 
2045 011511 0 040 115 MPXRE: .ASCIZ / MPM(W),XRR(R) DUAL ADRS FAULT/ 
2046 011551 = 040 «= 040)=S «115 MPXPE: =<ASCIZ / MPM(W ) DUAL ADRS FAULT/ 
2047 011611 = 040 «= 040 = 130 ~XRDSE: :ASCIZ / XRR(W).DSR(R) DUAL ADRS FAULT/ 
2048 011651 0460 040 130 XRPCE: ‘ASCIZ / XRR(W).PCS(R) DUAL ADRS FAULT/ 
2049 011711 040 «= 0040S 130 -XRFLE: <ASCIZ / XRR(W),FLG(R) DUAL ADRS FAULT/ 
2050 011751 040 040 130 XRCSE: ‘ASCIZ / XRR(W),CSR(R) DUAL ADRS FAULT/ 
2051 012011 040 0460 130 XRMRE: <ASCIZ / XRR(W),MRR(R) DUAL ADRS FAULT/ 
g05¢ 012051 040040130 XRMPE: | -ASCIZ / XRR(W)-MPM(R) DUAL ADRS FAULT/ 
2053 012111 = 040 = 040 «Ss 130 <XRXPE: =:ASCIZ / XRR(W).XPM(R) DUAL ADRS FAULT/ 
2054 012151 040 «= 040-»S «130 -XPDSE: <ASCIZ / XPM(W).DSR(R) DUAL ADRS FAULT/ 
2055 012211 040 040 130 XPPCE: ‘ASCIZ / XPM(W).PCS(R) DUAL ADRS FAULT/ 
2056 012251 040 0460 130 XPFLE: ‘ASCIZ / XPM(W),FLG(R) DUAL ADRS FAULT/ 
2057 012311 040 040 130 XPCSE: ‘ASCIZ / XPM(W),CSR(R) DUAL ADRS FAULT/ 
2058 012351 40 040 130 XPMRE: ‘%ASCIZ / XPM(W)-MRR(R) DUAL ADRS FAULT/ 
2059 012411 40 040 130 XPMPE: ‘ASCIZ / XPM(W).MPM(R) DUAL ADRS FAULT/ 
2060 012451 040 040 130 XPXRE: ‘ASCIZ / XPM(W);>XRR(R) DUAL ADRS FAULT/ 
2061 012511 040 040 (175 MMMACE: :ASCIZ / MAIN MEM MGT ACCESS FAULT/ 
2062 012545 0 101 XMMACE: :ASCIZ / AUX MEM MGT ACCESS FAULT/ 
2065 012600 040040113 MMWNXE: -ASCIZ / MAIN REM MGT NON-EXIST MEM FAULT/ 
2064 012643 045 101 040 DPCERA: :ASCIZ /ZA (DPC) EXP'D: Z06%A, REC'D: %06/ 
2065 012706 045 101 040 DSRERA: :ASCIZ /%A (DSR) EXP'D: 206%A, REC'D: %06/ 
2066 012751 0465 101 040 DXRERA: :ASCIZ /%A (DXR) EXP'D: 206A. REC'D: %06/ 
2067 013014 045 101 © 040 DYRERA: :ASCIZ /ZA (DYR) EXP'D: Z06%A, REC'D: %06/ 
2068 013057 045 161 040 PCSERA: :ASCIZ /ZA (PCS) EXP'D: Z06%A, REC'D: %06/ 
2069 013122 = 045. S107 «S040 ~FLGERA: :ASCIZ /%A (FLG) EXP'D: 206A, REC'D: %06/ 
2070 013165 045 101 = 040 CSRERA: :ASCIZ /%A (CSR) EXP'D: Z06%A, REC'D: %06/ 
2071 013230 045 (101 040 MRRERA: :ASCIZ /ZA (MRR) EXP'D: Z06%A, REC'D: %06/ 
2072 013273 «= 04510140 : SASCIZ /%A ( EXP'D: Z06%A, REC'D: %06/ 
2073 013336 = 045. = 101 «S040 XRRERA: :ASCIZ /%A (XRR) EXP'D: ZO6%A, REC'D: %06/ 
2074 013401 045 101 040 XPMERA: :ASCIZ /ZA EXP'D: Z06ZA, REC'D: 206/ 
2075 01344 045 101 040 HBAERA: :ASCIZ /%A ( EXP'D: 206%A, REC'D: 206/ 
2076 013507 9045. = 101 «S040 CBAERA: <ASCIZ /%A_ (CBA) EXP'D: ZO6ZA, REC'D: %06/ 
2077 01355 040 040 104 ECE: — -ASCIZ / DIDN'T GET EXPECTED ERROR CODE/ 
3078 MORE ERROR MESSAGES ~~ 
2080 013613 040 040 103 CRWRZ: .ASCIZ ‘CURSOR REGISTER WRITE/READ ZEROS ERROR’ 
2081 013664 040 040 103 CRWRO: :ASCIZ ‘* CURSOR REGISTER WRITE/READ ONES ERROR’ nd 
2082 013734 040 040 103 CRDAX: -ASCIZ '' CURSOR REGISTER DUAL ADDRESS - WRITE Y CHANGED x"° 
2083 014017 = 040 = 040 =: 103s CRDAY: <ASCIZ CURSOR REGISTER DUAL ADDRESS ~ WRITE X CHANGED Y 
2084 014102 040 040 103 CRWRE: -ASCIZ_ ‘* CURSOR REGISTER WRITE/READ ERROR’ 
2085 014145 040 040 112 JSEWRZ:".ASCIZ ‘* JOYSTICK ENABLES WRT/RD O'S ERROR’ 
2086 014211 040 «= 040 «= 112 JSEWRO: :ASCIZ ‘* JOYSTICK ENABLES WRT/RD 1°S ERR é 
2087 014255 040 += 040 «= 112 CEZWE: .ASCIZ '* JOYSTICK ENABLES ZERO-THEN-WRITE ERROR 
2088 014326 = 04040118 CESWE: -ASCIZ YSTICK ENABLES SET-THEN-WRITE ERROR 
2089 014376 040 «= 040 = 112 JENOCL: .ASCIZ_ ‘* J.S. CHANNEL DECODE ERROR - ENABLES DIDN'T CLEAR” 
2090 Oleuel 040040128 CSRGSNE: .ASCIZ (; REGISTER ERROR AFTER J.S. SWITCH SET, NO ENABLE 
2091 014543 040 040 122 CSRGENS: .ASCIZ ‘* REGISTER FAROR AFTER J.S. SW ENABLE SET, NO Swi TCH" 
2092 014630 = 040 © 040111 CSIC: .ASCIZ ' INTERNAL REG. ERROR AFTER CLEARING J.S. SW 
2093 14712 040040103 NOSWPI: -ASCIZ °° ERROR IN FLAGS REG. —- SHOULD, SHOW PENDING SU INTR" 
20% 014777 040 040 106 NOSWI: :ASCIZ AULTY J.S. SWITCH INTERR - 
2095 015036 040 040 111 SwiIBV: ‘ASCIZ " INCORRECE VECTOR ON JS. SWITCH INTERRUPT 
2096 015112 040 «= 040 = 123. SWNOHLT: .ASCIZ ‘' SWITCH INTR REQ DIDN'T HALT DISPLAY PROCESSING - BAD DPC" 
3097 015205 = 040 = 040106 SWNOCU: .ASCIZ "* FAULTY CURSOR RETRIEVAL ON J.S. SW INTR REQ’ 
2099 015265 04004115 NOCH: .ASCIZ (MATCH INTERRUPT FAULTY OR NOT RECEIVED" 
2100 015334 040 040 116 NOMST: ‘ASCIZ ‘* NO STOP ON MATCH INTERRUPT’ 
2101 015371 040 + =040 115 CMNOMI: :ASCIZ ‘* MATCH BUT NO MATCH INTERRUPT 
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GLOBAL TEXT SECTION SEQ 0049 
$106 015430 040 040 111 CMIVB: .ASCIZ ‘* INCORRECT VECTOR ON CURSOR MATCH INTERRUPT"’ 
2103 015505 040 040 sf MATPCS: .ASCIZ {' WRONG DPC OR DSR FOR MATCH STOP"’ 
2104 015547 040 040 127 MATXYE: .ASCIZ ‘** WRONG DXR OR DYR FOR MATCH STOP 3 | 
2105 015611 040 040 127 TPOS: .ASCIZ (* WRONG DXR OR DYR AFTER oeet der patra 
2106 015663 040 040 111 MATIRE: .ASCIZ {' INTERNAL REGISTER INC CT FOR MA ai 
2107 015733 0 040 111 MEREG: .ASCIZ {' INTERNAL REGISTER aoe en AFTER SETUP FOR MATCH | 
2108 016017 040 040 106 MATFLE: .ASCIZ ‘' FLAGS REGISTER INCORRECT FOR MATCH’ ie 
2109 016064 0 040 125 TUT: .ASCIZ_ (' UNEXPECTED INTERRUPT ON RESUME AFT TCH a 
2110 016141 040 040 104 MENDPCS: .ASCIZ °' DPC OR DSR WRONG ON AFTER Or ior FOLLOWING MATCH 
2111 016224 040 040 103 CMPE:  .ASCIZ ‘* CURSOR MATCHED AT WRONG POSITION 
2112 016267 040 040 116 T: .ASCIZ ‘* NO CURSOR MATCH DET D 
2113 016322 045 116 045 EXPGT2: .ASCIZ /2NZA EXP'D: Z06ZA, ZO6ZNZA REC'D: Z06%A, %06/ 

2114 016377 045 116 045 OORD: .ASCII /ZNZA airy (X,YS = %06%A, soe/ 

2115 016437 045 116 045 eASCIZ /ENZA_REC'D DXR, DYR = Z062A, 

$118 016500 045 116 045 FSYCHAN: -ASCIZ "SNZA SYNC GEN/JOYSTICK CHANNEL = 201°" 

2118 

2119 016546 000 NUL : eASCIZ // 

2120 016547 045 116 000 NULCR: .ASCIZ /2N/ 

2121 016552 0 040 122 RLXIE: .ASCIZ / RUN-LENGTH X-INCREMENT FAILURE/ 

2122 016613 0 040 122 RLX2IE: .ASCIZ / RUN-LENGTH X-DOUBLE INCREMENT FAILURE/ | 
2123 016663 040 040 122 RLYUE: .ASCIZ / RUN-LENGTH Y-UP FAILURE/ 

2124 016715 040 040 122 YDE: .ASCIZ / RUN-LENGTH Y-DOWN FAILURE/ 

2125 016751 040 040 122 RLY2UE: .ASCIZ / RUN-LENGTH Y-SKIP UP FAILURE/ 

2126 017010 040 040 122 RLY2DE: .ASCIZ / gL oy Y-SKIP DOWN FAILURE/ 
2127 017051 045 101 040 EXPGOT: .ASCIZ /2ZA EXP'D: Z06%A, REC’ 

2128 017105 045 101 040 DUADI2: .ASCIZ /%A REG(W) WRITTEN TO: L06%A REG(R) READ; EXP*D: 206%A, REC'D: %06/ 
2129 017207 040 040 115 LE: .ASCIZ / MEM INTERLACE ERROR/ 
2130 017235 045 101 040 INLEXF: .ASCIZ /%A_ PIXEL READBACK EXP'D: %06%A, REC'D: %06%A, CHAN: %01/ 
2131 017326 040 040 120 SCPRE: .ASCIZ / PIXEL READBACK ERROR 

2132 017355 040 040 123 SCIDE: .ASCIZ / SYNC CHAN INTERLACE DIFFERENCE/ 
2133 017416 040 040 103 SCME: .ASCIZ /. CONFIG DOESN'T MATCH MFG. MASTER/ 

2134 017461 045 101 040 SCMFG: .ASCIZ /ZA_ MFG MEM 0: Z06%A, MFG SYNC CHAN 0: %06/ 
2135 017534 045 116 045 SCM: eASCII = /2NZA_ MEMORYS:/ 
2136 017552 045 101 040 ASCII /2A 0.= %06/ | 
2137 017565 045 101 054 eASCII /2A, 1 = 206/ 
2138 017601 045 101 054 ASCII = /2A, = %06/ 
2139 017615 045 101 054 eASCIZ /2A = 206/ 
2140 017632 045 116 045 SCS: ASCII /%NZA_" SYNC CHANS:/ 
2141 017653 045 101 040 ASCII /2A 0 = 206/ | 
2142 017666 045 101 054 eASCII /2%A, 1 = 206/ 
2143 017702 045 101 054 ASCII /2A, = 206/ 
2144 017716 045 101 054 eASCIZ /2A = 2062N/ 
4934 017735 045 116 045 NOMAN: ry /2NZAs*** MANUAL INTERVENTION NOT ALLOWED -- ABORTING ***#2N/ 
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GLOBAL ERROR REPORT SECTION 


022276 


022276 


022276 


022276 


000377 


000001 


000002 


026107 


026107 


026107 


026107 


026107 


-SBTTL GLOBAL ERROR REPORT SECTION 


p++ 
; THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX 
ED IN HAN TEST 


: CALLS 


BGNMSG 


BGNMSG 


BGNMSG 


BGNMSG 


BGNMSG 


1$: 


2s: 


3$: 


LS THAT ARE U ° 
; ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 


NXRERR 
PRINTX 
JSR 

ENDMSG 


PCSERR 
PRINTX 


JSR 
ENDMSG 


XYERR 
PRINTX 


JSR 
ENDMSG 


RLXYE 
PRINTX 


JSR 
ENDMSG 
INTERR 


IMDERR 
MOV 
ASR 


MORE T 


sNON-EXISTANT DEVICE REGISTER. 
W#NXRX , NODEV sNODEV = NE P 
PC, EXTEND ; PRINT EXTENSION IF REQUIRED. 


:BAD DPC AND/OR DSR_SIGNATURE. 
#PCSX,R2,R3,@DPC,@DSR ;R2,R3 = EXP PC,SR 
PC,EXTEND : PRINT EXTENSION IF REQUIRED. 


BAD DXR_AND/OR DYR SIGNATURE. 
#XYX,R4,RS,@DXR,QDYR ;R4,R5 = EXP X,Y 
PC,EXTEND : PRINT EXTENSION IF REQUIRED. 


BAD _DXR AND/OR DYR SIGNATURE. 


AXYX,R1,R3,R2,R4 ; R1,R3 = EXP, R2,R4 = REC. 


PC EXTEND ; PRINT EXTENSION IF REQUIRED. 


DISPLAY INTERRUPT ERROR SIGNATURE. 
MINTX,R1,@DPC = ;R1 = CPU PC 

#NULCR : PRINT A NEWLINE 

#°0377, INTFLAG + alarm GENERATED? 


#FNOINTR 3 NO == REPORT THE FACT 
#1OKSTP, INTFLAG ; was I AN UNEXPECTED ‘STOP’ INTERRUPT? 
#FUSI : YES == REPORT IT 
#10KJSM, INTFLAG ; WAS IT AN UNEXPECTED ‘MATCH’ INTERRUPT? 
rue : REPORT IF YES. 
#10KJSS, INTFLAG : WAS I AN UNEXPECTED ‘‘SWITCH’’ INTERRUPT? 
#FUSWI : REPORT IF YES 
#IOKERR, INTFLAG ; WAS IT AN UNEXPECTED “ERROR'’ INTERRUPT? 
#FUTO ; REPORT IT. 
PC, ERICHK TCHECK THE ERROR CODE 
PC EXTEND > PRINT EXTENSION IF REQUIRED. 

- IMAGE MEM DATA ERROR. 
R1, IMCRAM s TRANSLATE X ADDR... 
IMCRAM :...TO RAM NUMBER, 
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GLOBAL ERROR REPORT SECTION SEQ 0051 

2205 020516 PRINTX #IMDIX,R1,R2.PDF,R3,R4 

2206 020552 PRINTX #IMDIX0, IMCRAM, IMC. CH 

2207 020602 004737 022276 JSR PC EXTEND ; PRINT EXTENSION IF REQUIRED. 
3208 020606 ENDMSG 
2210 020610 BGNMSG LINTER ; LUT INTERRUPT ERROR. 

2211 020610 PRINTX M#LINTX,@LSR ; SHOW CSR. 

ele 020634 004737 022276 JSR PC, EXTEND t PRINT EXTENSION IF REQUIRED. 
218 020640 ENDMSG 
2215 020642 BGNMSG LRWERR : LUT READ/WRITE ERROR. 

2216 O2064¢ PRINTX #LRWX,@LSR,R1,R2 ; CSR, EXP'D, REC'D. 

2217 020672 004737 022276 JSR PC EXTEND ; PRINT EXTENSION IF REQUIRED. 

3218 020676 ENDMSG 
2220 020700 BGNMSG EXPREC 

2221 020700 PRINTX #EXPGOT,R1,R2 ; R1I=EXP'D, R2=REC'D. 

2222 020724 004737 022276 JSR PC EXTEND : PRINT EXTENSION IF REQUIRED. 
3203 020730 ENDMSG 
2225 020732 BGNMSG DPCER 

2226 020732 PRINTX #DPCERA,R1,R2 : RISEXPECTED, R2=RECEIVED. 
2227 020756 004737 022276 JSR PC EXTEND t PRINT EXTENSION IF REQ'D. 
2208 020762 ENDMSG 
2230 020764 BGNMSG DSRER 

2231 020764 PRINTX #DSRERA,R1,R2 : RISEXPECTED, R2=RECEIVED. 
2232 021010 004737 022276 JSR PC, EXTEND t PRINT EXTENSION IF REQ'D. 
3233 021014 ENDMSG 

2235 021016 BGNMSG DXRER 

2236 021016 PRINTX #DXRERA,R1,R2 : RI=EXPECTED, R2=RECEIVED. 
2237 021042 004737 022276 JSR PC EXTEND + PRINT EXTENSION IF REQ'D. 
2238 021046 ENDMSG 
2240 021050 BGNMSG DYRER 

2241 021050 PRINTX #DYRERA,R1.R2 : RI=EXPECTED, R2=RECEIVED. 
2242 021074 006737 022276 JSR PC EXTEND : PRINT EXTENSION IF REQ'D. 
3243 021100 ENDMSG 

sot att —— PRINTX #PCSERA,R1,R2 R1I=EXPECTED, R2=RECEIVED 
2247 021126 004737 022276 JSR PC.EXTEND — : PRINT EXTENSION IF REQ'D. 
3248 021132 ENDMSG 

$520 sate on PRINTX #FLGERA,R1,R2 RI=EXPECTED, R2=RECEIVED 
2252 021160 004737 022276 JSR PC,EXTEND - > PRINT EXTENSION IF REQ'D. 
3253 021164 ENDMSG 

$538 abet “sete PRIWTX #CSRERA,R1,R2 RI=EXPECTED, R2=RECEIVED 
2257 021212 004737 022276 JSR PC,EXTEND ~ > PRINT EXTENSION IF REQ'D. 
3258 021216 ENDMSG 

260 021220 BGNMSG ‘MRRER 

2261 021220 PRINTX #MRRERA,R1,R2 ; RISEXPECTED, R2=RECEIVED. 
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GLOBAL ERROR REPORT SECTION 


22 ater 
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Mmrrns 
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004737 


004737 


004737 


004737 


004737 


004737 
2 


022276 


022276 


022276 


022276 


022276 


022276 


022276 


002512 





ENDMSG 
BGNMSG 


ENDMSG 
BGNMSG 


ENDMSG 
BGNMSG 


ENDMSG 
BGNMSG 


ENDMSG 
BGNMSG 


ENDMSG 
BGNMSG 


ENDMSG 
BGNMSG 


1$: 
ENDMSG 
BGNMSG 


ENDMSG 


BGNMSG 


ENDMSG 


JSR 
MPMER 
PRINTX 
JSR 


XRRER 
PRINTX 
JSR 


XPMER 
PRINTX 
JSR 


HBAER 
PRINTX 
JSR 


CBAER 
PRINTX 
JSR 


DUADRE 
PRINTX 
JSR 


SYSCON 
TST 
BEQ 
PRINTX 


PRINTX 
PRINTX 


PRINTX 
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PC EXTEND 


#MPMERA ,R1.R2 
PC EXTEND 


PC,EXTEND 


#XPMERA,R1,R2 
PC EXTEND 


#HBAERA ,R1 ,R2 
PC.EXTEND 


#CBAERA,R1,R2 
PC,EXTEND 


#DUADI2, Roe R1,R2 
PC. EXTEN 


— 
#SCMFG MF GMO MFG 


PRINT EXTENSION IF REQ'D. 


; RI=EXPECTED, R2=RECE 
: PRINT EXTENSION IF R 


RI=EXPECTED, R2=RECEIV 


I 
EQ 


VED. 
Q'D. 


PRINT EXTENSION IF REQ oD 


R1I=EXPECTED, R2=RECEIVED. 
PRINT EXTENSION IF REQ'D. 


R1I=EXPECTED, R2=RECEI Ht 


PRINT EXTENSION IF 


REQ 


RI=EXPECTED, R2=RECEIV 


; PRINT EXTENSION IF 


R3=WRITTEN, RI=EXP"D, R2=REC'D. 


REQ 


VED. 
Q'D. 


PRINT EXTENSION IF REQ'D 


+, MODE? 


go 
#SCMMEMTAB, HENTABS2, MEMTAB+4 ,MEMTAB+6 
#SCS.SYCTAB, SYCTAB+2, SYCTABY+4, SYCTAB+6 


#MRRERA,R3,R4 
#NUL 
#DPCERA,R1 ,R2 
#NULCR 


#XRRERA,R3,R4 
#NUL 
#DPCERA,R1,R2 
#NULCR 


PRINT BLANK LINE 


zPRINT BLANK LINE 


SEQ 0052 
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2319 022074 
2320 022074 
2321 O551¢8 
se56 022130 
232 

2324 022132 
2325 022132 
2326 022172 
2327 022176 
2328 

2329 022200 
2330 022200 
2331 022224 
2332 

2333 022226 
2334 022226 
2335 022254 
2336 022274 
2337 

2338 

2339 

2340 


2346 022330 





004737 022276 


004737 022276 


005727 
0 


2 
004777 
000207 


177770 








BGNMSG EXPRC2 
PRINTX #EXPGT2,R1,R3,R2,R4 
JSR PC EXTEND 
ENDMSG 


BGNMSG PNTCOOR 
tae a een 


J . 
ENDMSG 


PNTSYCH 
PRINTX 
ENDMSG 


INLEX 
PRINTX 
PRINTX 
ENDMSG 


; THIS ROUTINE APPENDS A UNIQUE EXTENSION (IF REQUIRED) 
: TO ANY OF THE ABOVE ERROR SIGNATURES. 


3R1,R3_= EXP'D 


BGNMSG 
#FSYCHAN,CSCHAN 


BGNMSG 
MINLEXF ,R1,R2,R5 
#NULCR sPRINT BLANK LINE 


EXTEND: TST (PC)+ 
EXTA: fa a : 0 = NO EXTENSION. 

JSR PC, @EXTA : APPEND EXTENSION TEXT. 
1$: PRINTX #NULCR : PRINT A BLANK LINE 





R2,R4 = 


: PRINT EXTENSION, IF RE 


RE 
Q' 


+ 
D. 


SEQ 0053 


VSV11/VS11_== GRAPHIC SYS. DIAG MACRO M1113 ag 11:23 PAGE fs ° 
INTERNAL REGISTER CHECKER, ERROR CODE HANDLER, DPINIT SEQ 0054 


2348 .SBTTL INTERNAL REGISTER CHECKER, ERROR CODE HANDLER, DPINIT 
2350 :ROUTINES TO CHECK CONTENTS OF INTERNAL REGISTERS. s 

2351 ; UPON ENTRY, THE EXPECTED DATA SHOULD BE IN LOCATION ‘‘GDDAT 

s338 ;MACRO TO,ASSereLy REClSTER CHECK FRONT-END: 

2355 WSEL'RGS,-(SP) GET REGISTER-SELECT CODE ONTO THE STACK. 

2356 Moy #998. = = (SP) ZAND THE ADDRESS OF THE REGISTER-NAME MESSAGE. 
2357 JMPsIREGCK THEN GO TO COMMON HANDLER. 

2358 99$:  .ASCIZ /%A "RNAM''/ 

2359 sEVEN 

360 ;ENDM CHECK 

9362 022332 DSRCHK: CHECK DSR, <DSR> CHECK THE DSR 

2363 022360 PCSCHK: CHECK PCS.<PCSAVE> ts» -PCSAVE 

2364 022410 FLGCHK: CHECK FLG,<FLAGS> 32. oFLAGS 

2365 022440 CSRCHK: CHECK CSR.<CSR> 3..eCSR 

2366 022466 MMCHK: CHECK MRR,<MAIN MEM MGMT> z.+eMAIN-SEG MEM. MGMT 

2367 022526 CHECK HBA,<HISTOGRAM BASE> ;..-HISTOGRAM SASE 

2368 022566 XMCHK: CHECK  XRR,<AUX MEM MGMT> 3.2 eAUX=SEG MEM. MGMT. 

2369 022624 CBCHK: CHECK  CBA,<CHARACTER BASE> ;...CHARACTER BASE 


2371 

2372 022664 040 04 
2373 022736 045 11 
2374 022775 045 11 
2375 023012 045 11 
2376 


0 111 Iz / ier 43 DATA_IN oth pg REGISTER .../ 
6 045 GDBAD: IZ /ZNZA EXP'D: Z062A REC'D: 206/ 

6 045 TINERR: .ASCIZ /2NZA_ TEST: 

6 045 _ /ENTA_ ... AFTER DOING SOFT INIT./ 


2377 
2378 023054 000000 LOOPFL:: 0 LAG OR DATA FOR TEST=LOOP=DEPENDENT STUFF. 
2379 023056 000000 GDDAT:: 0 ;STORAGE FOR expictes DATA 

2380 0 000000 BADDAT: 0 TORAGE FOR ACTUAL DAT 

2381 023062 000000 REGNAM: 0 tADDRESS. OF REGISTER NAME STRING. 

2382 023064 000000 SIFLAG: 0 [FLAG TO SAY DOING SOFT INIT. 
2384 COME HERE yuiTH (SP)=ADDRESS OF NAME STRING 2(SP)=SELECT CODE. 

2385 023066 012637 023062 IREGCK: (SP) +,REGNAM 7GET STRING ADDRESS. 

2386 023072 012677 157736 MOV (SP)+-aDSR SELECT THE REGISTER. 

387 023076 017737 157732 023060 MOV @DSR,BADDAT THE DATA. 

388 023104 012777 157722 MOV #SELDSR,@DSR ?SELECT THE REAL DSR 

389 0 3112 023737 $0 908e 023060 CMP GDDAT ,BADDAT ; COMPAR E EX XPECTED W/ ACTUAL. 
S304 at wee CR DERR REE REGERR TIF hore “Say'sé sO UP PRINT DATA. 
2398 aire: 000207 1$: RTS PC 

394 023144 BGNMSG REGERR 

395 023144 PRINTX REGNAM -PRINT THE REGISTER NAME . 

3396 023164 PRINTX #GDBAD GDDAT ,BADDAT zAND THE DATA. 

2397 023214 PRINTX #TINERR 

2398 023234 PRINTX TNAM :PRINT TEST NAME 

3399 023254 005737 023064 TST SIFLAG ‘SOFT INIT? 

400 033 60 001410 BEQ ‘BR IF NO 

2401 023 62 PRINTX &#SIMSG SPRINT IF YES 

2402 023 2s: PRINTX #NULCR SPRINT SLANK LINE 

3322 ENDMSG 


Age pad 
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INTERNAL REGISTER CHECKER, ERROR CODE HANDLER, DPINIT SEQ 0055 
2405 023324 PTINER: 
406 023324 PRINTX #TINERR :PRINT "'TEST:"* 
407 023344 PRINTX TNAM ‘PRINT NAME OF TEST 
2408 023364 PRINTX M#NULCR ‘PRINT BLANK LINE 
3409 023404 000207 RTS PC 
2411 sROUTINES TO CHECK FOR THE INITIALIZED STATE OF INTERNAL REGISTERS: 
241 > TIRCHK CHECKS THEM 
241 ;  TIRCNF CHECKS ALL BUT THE FLAGS REGISTER. 
2414 ; TIRCNC CHECKS ALL BUT THE CSR 
3415 ;  LIRNFC CHECKS ALL BUT FLAGS AND CSR. 
2417 023406 012737 100000 023056 {IRCNC: MOV #CHAR GDDAT ;SEE IF FLAGS HAS "‘CHAR’’ MODE ONLY. 
2418 023414 004737 022410 JSR PC FLGCH 
2419 023420 000414 BR LIRNF :BYPASS CSR CHECK. 
2420 023422 012737 100000 023056 IIRCHK: MOV AR GDDAT [SEE IF FLAGS HAS ‘CHAR’ MODE ONLY. 
2421 023430 004737 022410 JSR PC ,FLGCHK 
2422 023434 004737 023524 LIRCNF: JSR PC’ ERRCHK :SPECIFICALLY CHECK FOR AN ERROR CODE. 
2423 023440 012737 003 023056 MOV #SELCSR,GDDAT WE SHOULD ONLY SEE SELECT CODE IN CSR. 
2426 023446 004737 022440 JSR PC, CSRCHK 
2425 023452 012737 01 023056 JIIRNFC: MOV #1,GDDAT TEXPECT TO SEE “EMPTY'’ STATUS IN PCSAVE. 
023460 004737 022360 JSR PC.PCSCHK i260 CHECK IT. 
2427 023464 005037 023056 CLR GDDAT REMAINING REGISTERS S/B CLEAR. 
2428 023470 004737 022466 JSR PC ,MMCHK t...MAIN MEM MGMT 
2429 023474 004737 022526 JSR PC -HBCHK ...HISTOGRAM BASE 
2430 023500 004737 022566 JSR PC. XMCHK :...AUX MEM MGMT 
2431 023504 004737 022624 JSR PC. CBCHK t... CHARACTER BASE. 
432 023510 005037 023064 CLR SIFLAG [CLEAR SOFT-INIT FLAG. 
2433 023514 000207 RTS PC 
2435 sERRCHK: CHECKS THE CSR FOR AN ERROR CODE & REPORTS IT 
2436 023516 012746 000001 ERICHK: MOV #1,-(SP) : SET FLAG TO INHIBIT USE OF ‘DFERR' 
2437 023522 000401 BR ERACK1 
438 023524 005046 ERRCHK: CLR =(SP) : CLEAR FLAG 
439 023526 012777 000003 157300 ERRCK1: MOV #SELCSR, @OSR  :SELECT THE CSR. 
2440 023534 01 746 157274 MOV aDsR =R T. 
2441 023540 012777 000 157266 MOV WSELDSR.@DSR —:SELECT REAL DSR SO PEOPLE WON'T GET MIXED UP.. 
2442 023546 011637 023060 MOV (SP) ,BADDAT [STORE CSR CONTENTS. 
2443 02355 042716 177760 BIC #17, (SP) TEXTRACT THE SELECTiWE FIELD. 
2444 023556 022627 000003 CMP (SP)+/MSELCSR :WE SHOULD SEE THE CSR REG SELECT CODE. 
45 023562 001424 BEQ 1$ 
2446 023564 005716 TST (SP) : SHOULD WE DO DFERR? 
rat 8 3296 penne BPERR sorsR iF Nor, SAY WE CAN'T READ IT 
oi80 at ” 208 PRINTX SENOCSA : PRINT MESSAGE “CAN'T READ CSR" 
$32 023632 000455 BR 2$ + GO TO EXIT 
453 023634 005737 023060 1$: TST DAT :TEST THE ERROR BIT. 
3454 023640 1 3 BPL eS [0K IF CLEAR: JUST EXIT. 
455 02364 900 02 060 SuAB BADDAT TIF SET, GET ERROR CODE 
2457 065639 Dogs 7 033060 ASR DA ¢..,INTO BITS<4:1>, 
458 023656 042737 177741 023060 BIC #°C36,BADDAT 
459 0 3664 013746 023060 BADDAT,-(SP) | :SAVE ERROR CODE * 2 ON STACK 
460 023670 71 4266 ADD #ERCTOL (SP) 3GET TO THE MESSAGE ADDRESS TABLE. 
2461 023674 01363 4264 MOV )+,ERCNAM GET THE ADDRESS OF THE REG NAME MESSAGE. 
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| 
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23726 118: PRINTX #FERCM ; PRINT ''CSR_ERROR Se 


| INTERNAL REGISTER CHECKER, ERROR CODE HANDLER, DPINIT SEQ 0056 
2462 0 3700 005716 TST (SP) : USE ‘DFERR''? 
463 0 3702 001011 BNE 11$ : Ni 
HRDERR ERCM.ERCOD ‘REPORT THE BAD NEWS. 
ghe> 02 Een 000420 $ 
467 85 746 PRINTX ERCNAM t ... AND THE ERROR NAM 
468 023766 005726 2$: TST (SP)+ 
2469 023770 000207 RTS 
2471 023772 045 116 045 FNOCSR: .ASCII /%N%A *e2/ 
2472 024003 040 040 103 NOCSR: .ASCIZ / CAN'T READ THE CSR/ 
2473 024030 045 116 045 FERCM: ASCII /%N%A_ te*/ 
474 02404 040 040 103 ERCM: -ASCIZ / CSR ERROR CODE REC'D = 
2476 024074 BGNMSG ERCOD 
2477 024074 PRINTX ERCNAM 
2478 024114 023727 023060 000026 CMP BADDAT,#13*2 =; IS IT "DBUS DATA R/w ERROR’? 
2479 024122 001014 BNE 1$ :BR IF NO 
2480 024124 PRINTX #CDBAD, @DXR,@DYR ; YES == DXR = EXP"D, DYR = REC'D 
2481 024154 1$: PRINTX M#TINERR 
2482 024174 PRINTX TNAM 
2483 024214 005737 023064 TST SIFLAG :SOFT INIT? 
2484 024220 001410 BEQ 2$ :BR IF NO 
2485 024222 PRINTX #SIMSG :PRINT IF YES 
2486 024242 23: PRINTX #NULCR *PRINT BLANK LINE 
2487 024262 ENDMSG 
2488 024264 000000 ERCNAM: 
2489 024266 024326 024365 024430 ERCTBL: 77$.1$,2$,3$.4$.5$,6$,7$ 
2490 024306 024735 025004 025067 10$.11$, 128, 138.148, 15$, 16$.17$ 


;ERROR CODE EXPLANATIONS; 


2493 024326 045 101 056 178: wASCIZ /%A... 0: CILLEGAL ERROR CODE) / 
024 045 101 056 wASCIZ /%A... 1: NXM TIMEOUT ON DMA X'FER/ 

2495 024430 045 101 056 a3: sASCIZ /%A... ¢: (ILLEGAL ERROR C CODED/ 
2496 024467 045 101 056 3$: sASCIZ /%A... 3: MEMORY PROTECTION ERROR/ 
2497 024531 045 101 056 4$: SASCIZ /%A... 4: SEQUENCE ERROR/ 
2498 024 045 101 056 5$: SASCIZ /%A... 5: RESERVED OPERATION/ 
2499 02461 045 101 056 6$: wASCIZ /%A... 6: ECTOR ENDPOINT MISMA 
2500 024662 045 101 056 7S: ASCIZ /%A... 7: U=PROC EXECUTED UNUSED MICROWORD/ 
2501 024735 045 101 056 10$:  .ASCIZ /%A... 10: ME ‘SYNC es 
2502 025004 045 101 056 11$: ~ASCIZ /%A... 11: PIXEL READBACK ‘DATA AVAILABLE TIMEQUT/ 
2503 025067 045 101 056 12$: -ASCIZ /%A... 1: J.S. STATUS “DATA READY’ TIMEQUT/ 
2504 025143 045 101 056 13$: wASCIZ /%A... 13: DBUS DATA READ-WRITE ERROR/ 
3905 025211 045 101 056 14$: “ASCIZ /%A... 14: GNAL HUNG/ 

506 025245 045 101 056 15$: ASCIZ2 /%A... 15: SIGNAL HUNG/ 
2507 025301 045 101 056 168: “ASCIZ /%A... 16: (ILLEGAL ERROR CODE)/ 
2508 025341 045 101 056 17$: -ASCIZ /%A... 17: (ILLEGAL ERROR CODE)/ 
3909 SEVEN 
2511 ;ROUTINE TO DO A “‘SOFT’’ INIT ON THE DPU: 
312 -ENABL LSB 
2513 025402 004737 031412 DPINIT: JSR PC, SAVERS i SAVE RO-RS. 
2514 025406 012737 000001 023064 MOV #1,SIFLAG + SAY DOING SOFT INIT 
3515 025414 012777 155412 MOV #0. aDSR ‘SELECT THE REAL D 

316 025422 005777 155406 TST apsr TARE WE STOPPED? 
2517 025426 100403 BMI! 11 :BR IF YES 
2518 025430 004737 026756 JSR PC,RELEAS [SEE IF WE'RE HUNG. 
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INTERNAL REGISTER CHECKER, ERROR CODE HANDLER, DPINI SEQ 0057 
2519 Stabe 017700 155372 MOV aDPC,RO 
2520 025440 057700 155370 BIS DSR,RO 
2521 025444 057700 155366 BIS a@DXR,RO 
2522 025450 057700 155364 BIS aDYR,RO 
2523 025454 001010 BNE 1$ 
$25¢ OS 3606 18 DFERR VSHUNG,VSHNG 3; REPORT HUNG, ALL REGISTERS 0 
2526 025476 012777 040000 155332 MOV #GTJSSW,aDXR ;CLEAR PENDING INTERRUPT 
2527 025504 004737 027454 JSR PC ,WAITF 
2528 025510 012703 000004 MOV oR3 ser COUNTER FOR # OF SWITCHES TO CLEAR 
2529 025514 012704 160000 MOV MWECC RS SET UP OP TO CLEAR SWITCHES 
2530 025520 010477 155314 12$: MOV R4,aDYR ‘CLEAR A SWITCH 
2531 025524 004737 027454 JSR C,,WAITF 
2532 025530 062704 000400 ADD #CH1,R 
2533 025534 005303 DEC R3 
2534 025536 001370 BNE 12$ 
2535 025540 012777 040000 155270 DPSINI: MOV #GTJSSW,aDXR ;CLEAR PENDING INTERRUPT 
2536 025546 004737 027454 JSR PC,WAIT 
2537 025552 012777 100000 155260 MOV #100000, aDYR :D0 THE INIT. 
2538 025560 004737 027454 JSR PC ,WAITF SWAIT FOR A COMPLETE 
2539 025564 103402 BCS 30K IF STOPPED. 
2540 025566 004737 026756 JSR PC,RELEAS ;TRY TO UNHANG. 
2541 025572 005002 1$: CLR SEXPECT DPC TO BE 0. 
2542 025574 012703 100060 MOV #B1T15,R3 ZEXPECT DSR TO BE 100000. 
025600 005777 155226 TST aDPC sTEST THE DPC, S/B =0. 
2 025604 001003 BNE 2s IF NOT 0 
025606 027703 155222 CMP aDSR,R3 CHECK DSR. 
2546 025612 001410 BEQ 3$ 
2547 025614 2$: DFERR NSINIT,PCSERR ;REPORT ERROR IN DPC OR DSR. 
2548 025634 012737 000001 023064 3$: MOV #1,SIFLAG SAY DOING SOFT INIT. 
2549 025642 004737 023422 JSR PC, ITIRCHK : CHECK THE INTERNAL REGISTERS 
2550 025646 005004 CLR 4 : DXR AND DYR SHOULD BE 0. 
2551 025650 005005 CLR RS 
2552 025652 005777 155160 TST a@DXR 
2553 025656 001003 BNE 4$ 
2554 025 005777 155154 TST aDYR 
2555 025664 001410 BEQ 5$ 
2556 025666 4$: DFERR NSINIT,XYERR 
2557 02571 004737 031436 5$: JSR PC,RESTRS ; RESTORE RO-RS. 
2558 025712 005037 023064 CLR FLAG 
2559 025716 000207 RTS C ;RETURN TO CALLER 
5200 -DSABL LSB 
2562 025720 BGNMSG VSHNG 
2563 025720 PRINTX #VSHGE 
$208 025740 ENDMSG 
2566 025742 040 040 104 VSHUNG: .ASCIZ / DPU HUNG == ALL REGISTERS READ ZERO/ 
344 026010 045 101 040 VSHGE: ASCIZ /%A_~— BAD M7064 OR NO B-CLOCK OR VBLANK FROM M70612%N/ 
2569 
$240 
2572 026074 DPRESET: BGNSEG S KKKKK KERR KEKE KKK KKK KKK KKK BEGIN SEGMENT. 
3374 $50078 wee ae ENDSEG PC.DPINIt sunsncathebtensertahaniee END SEGMENT 
2575 026104 000207 RTS PC 
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-SBTTL GLOBAL SUBROUTINES SECTION 


A og 
; THE GLOBAL SUBROUTINES SECTION FORT AINS THE SUBROUTINES 
a THAT CORE USED IN MORE THAN ONE TEST 


+ DEFAULT DISPLAY INTERRUPT HANDLERS. 
: IF DISPLAY TIME-OUT, REPORT DEV FATAL, AND ABORT PASS. 
> OTHERWISE, SAVE DPU REGISTERS AND DISMISS. 


; BIT DEFINITIONS FOR ‘INTMASK'' AND ‘‘INTFLAG'’ BYTES: 


IOKCKIN=B1T7 ; DON'T CHECK FOR BAD INTERRUPTS == TEST WILL. 
IOKSTP=B1TO ; EXPECT "'STOP’’ INTERRUPT 
IOKJSM=B81T1 ; EXPECT JOYSTICK ‘MATCH’ INTERRUPT. 

RR=B1T2 ; EXPECT ‘© 


IOKE E NTERRUPT. 
I0KJSS=B1T3 : EXPECT "JOYSTICK SWITCH’’ INTERRUPT. 
‘INTERRUPT MASK =~ SAYS EXPECTING INTERRUPTS 
; INTERRUPT FLAG =- SAYS WE GOT ONE (IF POSITIVE) 
INTFLAG: -BYTE 0 


SAVED INTERRUPT VECTOR: 
VEC: .WORD 0 


SAVE CPU PC 
INTCPC: .WORD 0 


j SUBROUTINE TO ENABLE INTERRUPTS: 
ENAINT: MOV RO,-(SP) VE RO 
MOV STPV,RO :GET POINTER TO VECTORS 
MOV #DSTP, (RO)+ :SET UP STOP VECTOR 
MOV #PRIO7, (RO)+ 
MOV #DJM, (RO) + :SET UP MATCH VECTOR 
MOV #PR167, (RO)+ 
MOV #DTO, (RO)+ :SET UP ERROR VECTOR 
MOV #PR1O7, (RO)+ 
MOV #DJS, (RO)+ :SET UP JOYSTICK SWITCH VECTOR 
MOV #PR107, (RO) 
MOV (SP)+,RO ;RESTORE RO 
MOV (SP) ,-(SP) 
MOV #0,2(SP) :SET CPU TO LEVEL 0 
; SUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7) 
DSBINT: MOV - 
MOV #PR107,2(SP) 
RTI 
-ERROR (TIME-OUT) INTERRUPT SERVICE: 
bTO: MOV TOTV, INTVEC 7SAVE THE VECTOR 
CLRB _—sCINTFLAG [CLEAR FLAG TO SAY We GOT INTERRUPT 
BITB #IOKERR,INTMASK :EXPECTING ERROR INTERRUPT? 
BNE DPUSAV ‘BR IF YES: NO ERROR. 


SEQ 0058 


H 5 
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GLOBAL SUBROUTINES SECTION SEQ 0059 
2634 026232 152737 000004 026107 BISB MIOKERR,INTFLAG ;NO. SET THE ERROR FLAG. 
2635 026240 000447 BR DPUSAV *GO FINISH UP. 
2637 026242 013737 003052 026110 DSTP: MOV STPV, INTVEC SAVE THE VECTOR 
2638 026250 195037 026107 CLRB _—sCINTFLAG [CLEAR FLAG TO SAY WE GOT INTERRUPT 
2639 026254 132737 000001 026106 BITB §#IOKSTP, INTMASK i EXPECTING STOP INTERRUPT? 
2640 026262 001036 BNE DPUSA 
2641 026264 152737 000001 026107 BISB #IOKSTP, INTFLAG “NO. SET THE ERROR FLAG. 
2642 026272 000432 BR DPUSAV 3GO FINISH UP. 
2644 026274 013737 003054 026110 DUM: MOV JSMV, INTVEC ZSAVE THE VECTOR 
2645 026302 105037 026107 CLRB INTFLAG CL EAR FLAG TO SAY WE GOT INTERRUPT 
026306 132737 000002 026106 BITB #IOKJSM, INTMASK i EXPECTING MATCH INTERRUPT? 
2647 026314 001081 BNE DPUSAV 
2648 026316 152737 000002 026107 BISB #IOKJSM, INTFLAG “NO. SET hap ERROR FLAG. 
gh 026326 000415 BR DPUSAV 60 FINISH UP. 
2651 026326 013737 003060 026110 oduS: MOV JSSV, INTVEC ; SAVE ei VECTOR 
5 026334 105037 026107 CLRB —sCINTFLAG [CLEAR FLAG TO SAY WE GOT INTERRUPT 
2653 026340 122737 000010 026106 BITB #I0KJSS, INTMASK SEXPECTING SWITCH INTERRUPT? 
2654 026346 001004 BNE DPUSAV 
2655 02635 152737 000010 026107 BISB #IOKJSS, INTFLAG *NO. SEY THE ERROR FLAG. 
656 026356 000400 BR DPUSAV :GO FINISH UP. 
2658 
2659 026 011637 026112 DPUSAV: MOV (SP), INTCPC 3 SAVE CPU PC. 
2660 026 010146 MOV R1,-(SP) "SA 
2661 926366 013701 003034 MOV DSR.R1 [GET DSR ADDRESS INTO R1 
so6e 026372 017737 154434 003126 MOV aDPC, IDPC * SAVE DISPL PC.. 
2663 026400 011137 003130 MOV (R1),IDSR +..0STA petal 
026406 017737 154426 003132 MOV @DXR, IDXR doe ok POSITION... 
2665 026412 017737 154422 003134 MOV aDYR, IDYR :...¥ POSITION... 
026420 012711 000001 MOV #SELPCS, (R1) sSAVE PCSAVE... 
2667 026424 011137 003146 MOV (R1) , IPCSAV ; 
0264 012711 000002 MOV #SELFLG, (R1) sSAVE FLAGS... 
026434 011137 003150 MOV (R1), FLAGS : 
2670 026440 012711 3 MOV #SELCSR, (R1) sSAVE CSR... 
2671 026444 011137 003152 MOV (R1),1 : 
2672 026450 012711 MOV #SELMRR, (R1) sSAVE MAIN MEM-MGMT.. 
2673 026454 011137 003154 MOV (R1), IMAIN : 
2674 026460 012711 000005 MOV WSELHBA,(R1) | :SAVE HISTO. BASE... 
2675 02 011137 003156 MOV (R1) , IHBASE : 
sore pose? 012711 6 MOV #SELXRR, (R1) sSAVE AUX. MEM-MGMT.. 
2677 026474 011137 003160 MOV (R1), IAUX : 
2678 026500 012711 7 MOV MSELCBA,(R1) SAVE CHAR. BASE... 
2679 026504 011137 003162 MOV (R1), 1CBA 
2680 026510 012711 000000 MOV #SELDSR. (R1) TEND UP AT DSR... 
2681 026514 011137 003144 MOV (R1 S :...AND SAVE IT. 
2682 2 BITB SOKERR. ANTFLAG . DID WE GET AN ERROR INTERRUPT? 
2683 926360 105737 026107 TSTB INTFLAG ; ANY ERROR FLAGS SET? 
2684 0265 001424 BEQ 1$ ; 
2685 026526 105737 026106 TSTB —sINTMASK : YES. IS CHECKING TURNED OFF? 
2686 026532 100421 BMI 1 : BR IF 
2687 026534 015746 022300 MOV EXTA,-(SP) : SAVE ERROR EXTENSION ADDRESS. 
2688 026 01275 023324 022300 MOV OPTINER EXTA : SET EXTENSION TO PRINT TEST IN ERROR. 
2689 026546 013701 026112 MOV INTCPCR1 [GET CPU PC. 
2690 026552 004737 030216 JSR PC, INCERK S INCREMENT THE ERROR COUNTS 
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0, IFAULT, INTERR 
(SP)+,EXTA 
PC, CKEMAX 
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(SP)+,R1 


ONE FOR THE LUT 


a(PC)+ 


@LSR,ILSR 
@LDR,ILDR 


@LMR,ILMR 


;REPORT ERROR... 
sRESTORE EXTA 


sRESTORE R1 

3-+eAND DISMISS. 
INTERRUPTS. 

; SAVE LUT REGISTERS. 


; AND DISMISS. 


SEQ 0060 


5 
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GLOBAL SUBROUTINES SECTION SEQ 0061 
2707 $ 
2708 ; SUBROUTINE TO atten THE CURRENT UNIT DISPLAY. 
2709 § rat ‘CLRW 0 INIT H IM'S IN WRITE MODE. 
2710 ; CALL ‘‘CLRRW'" TO INIT atTH IM'S IN WRITE=IN-RETRACE MOD E. 
a8} 3 fart “*CLRRW1°' TO INIT WITH IM'S IN WRITE=IN-RETRACE, 1'°S=ONLY MODE. 
2713 -ENABL LSB 
2714 
srg 
2717 a OPERATIONS ARE "te face VIA PROGRAMMED I/0 SO THAT EXECUTION OF A DISPLAY 
2718 FILe DOES NOT ay TO TAKE PLACE. , a 
2719 026632 005037 026754 éLR CLR CLMFCN ;SAY CLEAR TO ‘WRITE-ONLY‘** MODE. 
2720 026636 000407 BR 1$ 
2721 026640 012737 176076 026754 CLRRW1: MOV WRDWRT1,CLMFCN ;SAY CLEAR TO READ/WRITE=-1'S-ONLY. 
2722 026646 00040 BR 
2723 026650 012737 176074 026754 CLRRW: MOV #RDWRT ,CLMFCN ;SAY CLEAR TO READ/WRITE 
2724 :1$: JSR PC,DPINIT 7D0 INIT (CLEARS MEM, WRITE MODE, DISABLES J.S.) ;aaal 
2725 026656 012777 100000 154154 i$: MOV #B1T15, aDYR ; DO SOFT INIT TO CLEAR MEMORIES 
2726 026664 004737 027454 JSR PC,WAITF 
2727 026670 005737 026754 TST CLMF CN z;ANY THING ELSE TO DO? 
2728 026674 001426 BEQ 3$ sEXIT IF NOT. 
2729 026676 042737 176000 026754 BIC #176000,CLMFCN ;ZAP OUT OP-CODE. 
et 026704 052737 040060 026754 BIS #WRIMSR,CLMFCN ;INSERT CODE FOR WRITING INTO DYR. 
$f3s 026712 2$: BGNSEG 5 KKK KKK ERK KERR KKK KKK KKK KKK BEGIN SEGMENT. 
2734 026714 013777 026754 154116 MOV CLMFCN,aDYR sWRITE MEMORY STATUS-BA REGISTER 
2735 026722 004737 027454 JSR PC, WAITF ;WAIT FOR NOT BUSY. 
2736 026726 004737 023524 JSR PC, ERRCHK ;CHECK FOR ERROR 
site 026732 ENDSEG : KKK KEE EERE KKK KKK KKK KKKKKK END SEGMENT. 
2739 026734 062737 000400 026754 ADD #CH1,CLMFCN ;BUMP THE CHANNEL #. 
2740 026742 032737 001400 026754 BIT #CH3, CLMFCN ;DONE ALL CHANNELS? 
2741 026750 001360 BNE 2s 4 sf IF NOT. 
2742 026752 000207 3$: RTS PC TURN WHEN DONE ALL 3 CHANNELS 
2743 026754 000000 CLMFCN: 0 ZFUNCTION FOR CLEARING MEMORY . 
sree -DSABL LSB 
2746 ; : ANOTHER TO RELEASE THE DPU. ; * 
OHA : EXECUTE ‘EXT STOP’' IF HE'S RUNNING, ‘BUS-INIT'’ IF HE'S HUNG. 
2749 026756 012777 000000 154050 RELEAS: MOV #SELDSR,@DSR sMAKE SURE WE SELECT REAL DSR 
2750 026764 005777 154044 TST aDSR SEXIT IF DPU IS STOPPED. 
2751 026770 100410 BMI 1$ sEXIT IF HE'S F 
2752 026772 005077 154036 CLR aDSR *XCT “EXTERNAL STOP"’. 
2753 026776 004737 027454 JSR PC ,WAITF 
2754 027002 103403 BCS 1$ sEXIT IF vo WORKED. 
2755 31T DIDN'T . XCT BUS-INIT... 
2756 027004 BRESET 


S RESET. 
2757 027006 004737 027454 JSR PC ,WAITF 3. AND walt AGAIN. 
$f26 027012 000207 $: RTS PC 


1 

2760 : SUBROUTINE TO FILL ALL OF FREE COR 
: FOR BIT MAP FUNCTIONS. (RO) = 
; REGISTERS ARE NOT SAVED. 


E WITH PIXEL DATA 
DATA PATTERN, 


5 
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2764 027014 FILL1: Vv : F T ). 
2765 027016 ILL WITH (RO 

2766 027020 FILL2: 
1644 Bs Ee 






~8§ © — 


; FILL WITH ALTERNATE WORDS. 
: POINTER 


+ WORD COUNT. 
- INSURE WC IS EVEN. 


1S eee 
;.+eNEXT WORD. 


> ph 
ao—— 


000002 


SEQ 0062 
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34 
soe 027054 
836 027060 
2837 027064 
2838 027066 
2839 027072 


2881 057986 
2882 027260 
2883 027262 
2884 027264 
2885 027266 





—— 
rr 
~ 
So 
= 


mr 
“Ns 


occsescso 
3 
RESP 


So uae 
oocmUl 


oie itee na ror 
~ 
N 


424 


So°osss 


BSRvo 


ooo 
oo 
see 
NVOn 
RAEN 


000207 


sepesgasee-gocees 
== N= IWIO MON vilony 
NORMhow N 


SYS 
TION 


153720 
000100 


153706 
153700 
153672 


177776 


003216 
153634 
000100 
177356 
000020 
153612 
153604 
003220 


153566 





153716 


153660 


153632 


; SUBROUTINE TO BLAST THE LUT RAM WITH COLOR OR GREY=SCALE DATA. 
; on uter / TABLE ADDRESS. 
LU / SHADE. 


CUMIN: MOV 
NTSC: 


EXPR: 


1$: MOV 
2$: TST 


BR 
3$: TST 
g 


HAD16: TST 
8 


1$: MOV 


3$: RTS 


MOV 
SKP2+2 
MOV 


MOV 
SKP2+2 
M0 


#LUMTBL,R1 
#1,-(SPS 


#NTSC8,R1 
#32. ,-(SP) 


#EXPRM,R1 
#16. ,-(SP) 


LUTAV 
3$ 


@LSR 
#GCOFF ,@LMR 
(SP) ,RO 
(R1)4, @LDR 
@LSR 

-4 
aLSR 
3$ 
RO 
1$ 
-2(R1),aLDR 
2s 
(SP) + 
PC 


LUTAV 
3$ 


@LSR 
#GCOFF ALAR 
coset “RI 
#16. .R3 
~e alDR 


—% 
SHADLY RO 
RO 


5 
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T WORDS 


BASIC 8 COLOR TABLE ADDRESS. 
LUT WORDS / COLOR. 


EXPERIMENTAL 16 COLOR TABLE. 
LUT WORDS / COLOR. 


RETURN IF NO LUT INSTALLED. 
ADDR 0, NOJINTERRUPTS. 
GAMMA CORRECTION OFF. 

SET ‘igoy ION K 

BLAST THE RAM. 

WAIT FOR READY. 


LAST ADDRESS DONE ?? 
EXIT IF SO. 


; GET NEXT COLOR 


+ REPEAT THIS COLOR. 
; FIX THE STACK... 
AND RETURN. 


; : BLAST 16 SHADES OF THE BASIC COLOR IN (R1) 
; LOCATION ‘'SHADLY’’ SET BY CALLER TO PRODUCE A PLEASING 
; VISUAL EFFECT. 


RETURN IF NO LUT INSTALLED. 


; ADDR 0, NO ees 
GAMMA CORRECT 
; SET DIMMEST SHADE” Big, COLOR. 
at S BLACK. 


1ST SHADE IS 
16 LUT WORDS / 
WRITE DATA. 


DELAY. 


LUT RAM FULL ?? 
EXIT IF 


wor ver tome DONE ?? 
YES, INEREMEN THE SHADE... 
ONTINUE. 


SEQ 0063 





m5 
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GLOBAL SUBROUTINES SECTION SEQ 0064 
2887 ; 
888 ; SUBROUTINES TO TRANSLATE AN ABSOLUTE x OR Y TO SHORT FORM 
889 ; DELTA X OR Y. USED IN SVEC AND RPNT TESTS. 
2890 : INPUT RO = ABS CO-ORD, IN THE RAN Ge (1000 +/-76). 
2891 ; OUTPUT RO = DX OR DY CORRECTLY POSITIONED AND SIGNED. 
$893 027270 020027 001000 Spy: CMP RO,.#1000 
2894 027274 103003 BHIS  .+10 :SKP3 IF POS DELTA. 
2895 027276 005400 NEG RO SMAKE NEG DELTA. 
2896 027300 062700 000100 ADD #100,R0 :SET SIGN BIT 
2897 0273046 042700 177600 BIC #°C177,RO :RO = +/=DY IN <6:0>. 
2898 027310 000207 RTS PC 
2900 027312 004737 027270 SDX: JSR PC,SDY ZMAKE A DY. 
2901 027316 000300 SWABS séRO :...MOVE TO HI BYTE. 
2902 027320 006200 ASR RO [RO = +/=DX IN <12:7>. 
2903 027322 000 RTS PC 
2905 + SUBROUTINE To CONVERT 12 BIT OCTAL TO ASCII FOR DISPLAY. 
2906 > R1 = OCTAL X OR Y CO-ORD AT ENTR 
2907 : R1,,R2 = 4 DIGIT ASCII EQUIVALENT” AT EXIT. 
2908 : RO, R1, AND R2 NOT SAVED AT ENTR 
$390 027324 012737 030060 003232 (CNVRT: MOV #00, TEMP1 ZASC1I 00 
2911 027332 013737 003232 003234 MOV Temp TEMP2 ‘HERE TOO. 
2912 027340 042701 170000 BIC (7777,R :STRIP ANY CRAP BITS. 
2913 027344 010102 MOV RI RO 
2914 027346 000302 SWAB sR 
2915 027350 006202 ASR R2 
2916 027352 042702 177770 BIC #°C7,R2 
2917 027356 150237 003232 BISB = R2, TEMP 1 71ST (HI ORDER) DIGIT. 
2918 027362 010102 MOV R1,R2 
2919 027364 012700 000006 MOV #6,R0 
2920 027370 006202 1$: ASR R2 sSHIFT OFF 6 BITS. 
2921 027372 300 DEC —RO 
2922 027374 001375 BNE 
2923 027376 042708 177770 BIC #*C7,R2 
2924 027402 150237 003233 BISB = R2, TEMP1+1 Z2ND DIGIT. 
2925 027406 010102 MOV R1,R2 
2926 027410 012700 000003 MOV #3.,RO0 
27 027414 006202 23: ASR R2 sSHIFT OFF 3 BITS. 
8 027416 005300 DEC = RO 
2929 027420 001375 BNE 2$ 
02742 042708 177770 BIC #°(7,R2 
2931 027426 15025 003234 BISB R2,TEMP2 73RD DIGIT. 
027432 042701 177770 BIC #°C7,R1 
2933 027436 150137 003235 BISB = R1, TEMP2+1 :4TH (AND LAST) DIGIT. 
2934 027442 013701 003232 MOV EMP1.R1 ‘HI HALF => R1, 
2935 027446 013702 003234 MOV TEMP2.R2 ‘LO HALF = R2. 
2936 027452 000207 RTS “AND EXIT. 
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SUBROUTINES SECTION 


2941 


Uewr 
4 
+ 
w 
&* 


BSIBBE 
-—OOoan 


nm 


027506 
2953 027510 
$oee 027512 


586 


PETE EE SSRs. 


noo 
o 

Nm 
NNN 
vv 

&* 

Oo 


012746 
000402 


01 
01 
00 
00 
00 
00 
00 


oooo 

—O— 

=~Mmonr 

» PY N“N 
foro 

Aaron 


3 


005670 
153344 


027530 
027462 


023420 
011610 
000001 


000002 
027564 





; SUBROUT IM TO ae = cha at STOP FLAG. 


S STOP OCCURS. 
; OTHERWISE, ‘'C’’ = 0 AND RETURN AFTER APPROX 300 MSEC. 


; RETURN WITH "‘C'' = 1 


WAITF: BREAK 


MOV #3000. ,(PC)+ 
1$: 3000. 
2s: TST aDSR 
BM! 
JSR PC.US100 
DEC 1$ 
BNE 2s 
CLC 
SKP1 
3$ SEC 
RTS PC 


PAUSE1 a. #10000. .-(SP) 

PAUS.5: MOV #5000. ,-(SP) 
SKP2 

US100: MOV #1,-(SP) 


MOV (SP) ,-(SP) 
MOV RO,2(SP) 


1$ MOV k100uUS,RO 
DEC RO 
BNE 72 
DEC (SP) 
BNE 1$ 
TST (SP)+ 
MOV (SP) +,RO 
RTS PC 
k100uUS: 8. 


; DO A _SUPVSR BREAK FIRST. 
; 500 MSEC TIMER. 


; EXIT ON STOP FLA 
; OTHERWISE, WAIT 760 USEC... 


bee -AND TRY AGAIN. 

; C =0, DPU STILL 

i+ «OR HUNG-UP AFTER Ue00 ® MSEC. 
; C = 1, DPU IS STOPPED. 


SUBROUTINES TO PAUSE (WAIT) IN INCREMENTS OF 100 USEC. 
BASED ON — | y (CPU DEPENDANT) TO EXECUTE 


BNE .-2 

DELAY fog (K100US) SHOULD BE ADJUSTED AS FOLLOWS: 
FOR SLOW CPU'S (11/03 THRU 10), K100US = 8. 
FOR FAST CPU'S (11/34 THRU 70); K100US 


32. 
; 1 SEC TIMER. 

; 1/2 SEC TIMER. 

; 100 USEC TIMER. 


; SAVE THE COUNT 
3; SAVE RO 


; 100 USEC (MORE OR LESS) LOOP. 


VARIABLE LOOP. 
; FIX STACK... 
; RESTORE RO 


-. AND RETURN. 
; 100 USEC TIMER. 


SEQ 0065 
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GLOBAL SUBROUTINES SEC 
2981 
98 
8 
2984 
2985 
2986 
2987 
2988 
2989 
2990 
2991 027566 012737 
So08 27574 012737 
2993 027602 005003 
2994 005711 
2995 


2996 027606 020102 
2997 027610 be sso! 


2999 027616 
3000 
3001 027620 oy 


3008 027644 000207 
3009 


[nO ee 
SWUMONAUSWN Oo 


Meee 
IN mr 
ss 
3 


666 
3023 027670 000241 
0004 


3027 027700 000000 
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SYS. 
TION 
? ROUTINE TO TEST FOR A NEXM IN THE RANGE (a1) THRU (R2). 
: ON RETURN, IF ''C’' = = NEXM ADDR 
: "c= 0; ALL DONE SEES OK. 
[CALL: MOV ADR1,R1 
; mov ADR2.R2 
: RETURN :TEST "'C'' AND PROCEED. 
027620 000004 NXM: MOV 423,044 : SET BUSERR VECTOR. 
000200 000006 MOV #PRI04,a#6 
CLR R3 FLAG. 
1$: TST (R1) TEST THE ADDRESS(ES). 
TIF ANY TRAP, CONTINUE AT 2$. 
CMP R1,R2 TOTHERWISE, CONTINUE HERE. 
BEQ 3$ [BR IF FINISHED (NO NEXM'S). 
000002 ADD #2,R1 :SET NEXT ADDRESS... 
BR 1$ :...AND CONTINUE. 
2$: COM R3 :GOT ONE, SET FLAG... 
027630 MOV #3$, (SP) 
RTI ..AND DISMISS INTERRUPT... 
3$: CLRVEC #4 AND GIVE BACK THE VECTOR. 
TST R3 bib WE CATCH ONE ? 
BEQ +4 :NO, "'C'' = 0, SKIP NEXT 
SEC ‘YES, "C’’ = 7, (R1) = NEXM ADDR. 
RTS PC 
: SUBROUTINE TO EXECUTE TEST ITERATIONS. 
; EXIT WITH "'C’' SET IF LOOPS ALLOWED AND LOOP COUNT NON-ZERO. 
> LOOP COUNTER IS SET BY "BEGIN. TEST’ MACRO. 
: CALL: LOOPTO ARG 
Loop: 
002510 TST NOITS : ITERATIONS INHIBITED? 
BNE 1$ ; YES. 
003030 TST ave NO. 
BMI 1$ ; LOOPS DISALLOWED IN QUICK PASS. 
027700 DEC LOOPK + BUMP LOOP COUNTER. 
1$: che ;LOOP DISALLOWED, OR DONE. 
2s: SEC ;LOOP ENABLED. 
RTS PC 
LOOPK: 0 : LOOP (ITERATION) COUNTER. 


SEQ 0066 


SATS DI ae Me ae OR Oe SR RRS REE al 


—_—_—oO—_ ?? eee een nk _~— eee 
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GLOBAL SUBROUTINES SECTI 


ON SEQ 0067 


3029 ; 
3030 ; PRINT THE NUMBER, AND NAME OF EACH TEST AS WE GO ALONG. 
3031 > INCREMENT "TESTK'’ TO INDICATE THE NUMBER OF TESTS 
3032 : IN THE CURRENT RUN SEQUENCE. 
3033 ; CLEAR THE ERROR COUNTER AND “SIGNATURE EXTENSION FLAGS. 

35 ; *** NOTE: REQUIRES PRIOR USE OF THE ‘BEGIN. TEST’’ MACRO 
3036 ; TO SET NAME AND NUMBER POINTERS. 
3038 027702 005037 023064 isTGO: CLR SIFLAG : CLEAR "SOFT INIT’ FLAG 
3039 027706 005037 030130 CLR ERRK : CLEAR LOCAL ERROR COUNT 
3040 027712 005037 022300 CLR EXTA : CLEAR ERROR EXTENSION FLAG. 
3041 027716 105037 026106 CLRB —sCINTMASK ; CLEAR INTERRUPT MASK (CHECK ERROR) 
3042 027722 013700 003026 MOV UNITN,RO : GET THE UNIT NUM R, 
3043 027726 006300 ASL R : ..- AND MAKE IT A WORD OFFSET. 
3044 027730 005737 003226 TST NODEV : DID STARTUP FIND THE DEVICE? 
3045 027734 001430 BEQ 4$ : BR IF ves 
3046 027736 100010 BPL 3$ BR IF NOT IDLE 
3047 027740 052760 160000 003302 BIS #160000, ERTABL (RO); : FLAG ERROR IN THE ERROR TABLE 
3048 027746 ERRDF 1,NXR,NXRERR  ; NO DEVICE HERE <= PRINT IT 
3049 027756 000407 BR 
3050 027760 052760 160001 003302 3S: BIS #160001 gERTABL (RO) z FLAG ERROR IN THE ERROR TABLE 
3051 027766 ERRDF 2,N : DEVICE NOT IDLE 
3052 027776 012737 177777 003224 28: MOV a1 *DU AiG : DROP THE UNIT 
3053 030004 DODU —sCUNITN 
3054 030012 DOCLN : ABORT THE PASS 
3059 030014 000422 BR 5$ 
3057 030016 4$: RFLAGS RO : GET THE OPERATOR FLAGS. 
3058 030020 032700 001000 BIT #PNT,RO > PRINT THE TEST NUMBERS? 

: ist TIDFLG > WANNA TYPE THE TEST ID? 
3061 030024 001412 BEQ 1$ : BR IF NO 
3062 030026 PRINTF TNAM, TNUM : PRINT NUMBER AND TITLE. 
3063 030052 005237 030070 1$: INC TESTK : BUMP TEST COUNTER. 
3064 030056 004737 026114 JSR PC ,ENAINT > ENABLE INTERRUPTS 
3065 030062 000207 5$: RTS PC 
3066 030064 000000 TNUM 
3067 030066 000000 TNAM: 0 
3068 030070 000000 TESTK: 0 : NUMBER OF TESTS RUN THIS PASS. 
3070 : AT END OF EACH TEST, PRINT THE NUMBER OF ERRORS RECEIVED 
3071 ; IF NORMAL ERROR REPORTING IS DISABLED (FLA: IER). 
3078 030072 TSTEND: RFLAGS RO 
3074 030074 030027 020000 BIT RO.#IER 
3056 Os0lee ote PRINTE FESUMLERRK PRINT EaROR COUNTE 
3077 030126 000207 1$: RTS PC 
3079 030130 000000 ERRK: 0 : LOCAL ERROR COUNT. 
030132 045 101 040 ESUM:  .ASCIZ /%A %D%A ERRORS/ 

soe 030151 105 122 122 EMAXDU: “ASCIZ /ERROR LIMIT REACHED == DROPPING UNIT/ 

8 

84 ; ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT: 


3085 F} 
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GLOBAL SUBROUTINES SEC 
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SEQ 0068 


3086 030216 005237 030130 INCERK: INC ERRK ; INCREMENT LOCAL ERROR COUNT 
7 030222 010046 MOV RO,=(SP) t SAVE R 
3088 0300 4 013700 003026 MOV UNITN,RO : GET UNIT NUMBER, 
9 0 ; 006300 ASL R t 4s. AND MAKE IT A WORD OFFSET. 
3090 030232 62700 003302 ADD #ERTABL,RO t RO GETS ADDRESS OF ERROR TABLE ENTRY. 
3091 030236 005210 INC : INCREMENT THE DEVICE ERROR COUNT 
3098 030240 032710 007777 BIT #7777, (RO) + DID WE OVERFLOW THE FIELD? 
3093 030244 001001 BNE 1$ : BR IF NO. 
3094 030246 005310 DEC (RO) : YES == BACK IT UP TO 7777. 
3095 030250 012600 1$: MOV (SP)+,RO + RESTORE 
S008 030252 000207 RTS PC ; RETURN TO CALLER. 
3098 030254 010046 CKEMAX: MOV RO,=(SP) ; SAVE RO 
3099 030256 013700 003026 MOV UNITN,RO : GET UNIT NUMBER 
3100 030262 006300 ASL R 3 ee. AND MAKE IT A WORD OFFSET 
3101 030264 016000 003302 MOV ERTABL (RO) ,RO ; GET ERROR TABLE ENTRY 
3102 030270 042700 170000 BIC #170000,RO : EXTRACT ERROR COUNT FIELD 
3103 030274 020037 002516 CMP RO, GERRMAX ; IS GLOBAL LIMIT EXCEEDED FOR THIS UNIT? 
3104 030 103004 BHIS : BR IF YES 
3105 030302 023737 030130 002514 CMP ERRK, LERRMAX ; IS LOCAL LIMIT EXCEEDED FOR THIS TEST? 
3106 030310 103417 BLO $ : BR IF NO 
3107 030312 18: RFLAGS RO ; GET OPERATOR FLAGS 
3108 030314 032700 000040 BIT #IDU,RO ; IS DROPPING INHIBITED? 
3109 030320 001013 BNE 2 : BR IF YES. 
3110 030322 012737 177777 003224 MOV #-1,DUFLG : NO == DROP THE UNIT 
3111 030330 ERRDF 4, EMAXDU 
3112 030340 DODU —sUNITN 
3113 030346 DOCLN 
3114 030350 012600 2s: MOV (SP)+,RO ; RESTORE RO 
3115 030352 000207 RTS PC + RETURN TO CALLER 
3117 030354 010046 CKDROP: MOV RO,-(SP) 
3118 030356 RFLAGS RO 
3119 030360 032700 000040 BIT #IDU,RO 
3120 030364 001011 BNE 1$ 
3121 030366 012600 MOV (SP)+,RO 
3122 030370 012737 177777 003224 MOV #=1,DUFLG 
3123 030376 DODU _—sUNI'TN 
3124 030404 DOCLN :ABORT THE PASS 
3125 030406 000401 BR 2$ 
3126 030410 012600 1$: MOV (SP)+,RO 
3127 030412 000207 2$: RTS PC 
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GLOBAL SUBROUTINES SECTION SEQ 0069 
3129 ; 
3130 t SUBROUTINE = CONFIGURE VSV11 SYSTEM. 
3132 030414 CONFIG: 
3133 030414 004737 025402 CONMEM: JSR PC, DPINIT 
3134 030420 012700 040000 MOV #46000,R0 : PROTECT ALL MEMORIES 
3135 030424 010077 152410 10$: MOV RO, adYR 
3136 030430 004737 027454 JSR PC, WAITF 
3137 030434 062700 000400 ADD #CH1,R 
3138 030440 032700 001400 BIT #CH3, 
3139 030444 001367 BNE 10$ 
3141 030446 012777 000000 152362 MOV #0,aDXR : TRY A PIXEL READ. 
3142 030454 004737 027454 JSR PC, WAITF 
3143 030460 103410 BCS 1$ : BR IF UNSUCCESSFUL. 
3144 030462 DFERR PRBH ; PIXEL READBACK HANGS UP. 
3145 030502 012737 144003 023056 1S: MOV #144003,GDDAT 
3146 030510 004737 022440 JSR PC, CSRCHK 
3147 030514 005005 CLR R ; INIT MEM TABLE PTR. 
3148 030516 012777 000013 152310 2: MOV #13,aDSR : CLEAR CSR. 
3149 030524 005065 003256 CLR CTABM(RS) : CLEAR TABLE ENTRY. 
3150 030530 010501 MOV R5,R1 : ENABLE MEM R/W. 
3151 030532 006201 ASR R1 
3152 030534 000301 SWAB sé 
3153 030536 052701 040060 BIS #40060,R1 
3154 030542 010177 152272 MOV R1,aDYR 
3155 030546 004737 027454 JSR PC. WAITF 
3156 030552 012777 000000 152256 MOV #0. aDXR : PIXEL READ. 
3157 030560 004737 027454 JSR PC.WAITF 
3158 030564 012777 000003 152242 MOV #3. aDSR 
3159 030572 017702 152236 MOV aDSR,R2 : IS MEM THERE? 
3160 030576 100440 BMI : NO. 
3161 030600 012777 000000 152226 MOV #0,aDSR : YES. GET PIXEL DATA. 
3162 030606 017702 152222 MOV aDsR Re : 
3163 030612 052702 176003 BIS #176003,R2 : INVERT PIXEL DATA. 
3164 030616 00510 COM 
3165 030620 010265 003256 MOV R2,CTABM(RS) : PUT PIXEL DATA IN MEM TABLE. 
3166 0. 4 012703 000010 MOV #8. .R3 ; GOT AN EVEN NUMBER OF PIXEL BITS? 
3167 030630 005004 CLR 
3168 030632 006202 ASR R2 
3169 030634 006202 3$: ASR R2 
3170 030636 032702 000001 BIT #1,R2 
3171 030642 001401 BEQ 4$ 
31 ie 030644 005204 INC RS 
3173 030646 005303 4$: DEC R3 
3174 030650 001371 BNE 33 
3175 030652 032704 000001 BIT #1,R4 
3178 030656 001410 BEQ 
aire O30569 2701 0 5$ V1 age mie : WES RE-PROTECT THE MEM 
179 030704 sta 152130 MOV R1,aDYR 
180 030710 737 027454 JSR PC, WAITF 
181 0307164 705 000002 ADD #2. > NEXT MEM, 
182 030720 ob13%4 000010 cme R3 -#10 + ALL MEMS CHECKED? 
184 030726 012737 000010 003252 6$: MOV WBIT3,MEMFLG : YES. SET ONE FLAG TO INDICATE MEMS AVAIL. 
185 0307 315904 003256 MOV #MEMTAB,R1 ; 
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OBAL SUBROUTINES SECTION SEQ 0070 

3186 86 030740 005721 7$: TST (R1)+ : 
3187 030742 001403 BEQ 8 ; 
3188 030744 052737 000020 003252 BIS WBIT4,MEMFLG =: 
3189 030752 006237 003252 8$: ASR MEMFiG : 
3190 030756 103370 BCC 7$ : 
3191 030760 004737 025402 CONSYC: JSR PC .DPINIT 
3192 030764 005003 CLR R 
3193 0307 905008 CLR R5 : INIT SYNC CHAN TABLE PTR. 
3194 030770 012777 000013 152036 1$: MOV #13,aDSR : CLEAR CSR. 
3195 030776 005065 003270 CLR CTABS(R5) + CLEAR TABLE ENTRY. 
3196 031002 010501 MOV R5,R1 : READ CURSOR STATUS. 
3197 031004 006201 ASR R1 
3198 031006 000301 SWAB RT 
3199 031010 052701 042100 BIS #42100,R1 
3200 031014 010177 152016 MOV R1, 
3201 031020 004737 027454 JSR PC, WAITF 
3202 031024 012777 000003 152002 MOV #5 ,aDSR : GOT A DATA READY ERROR? 
3203 031032 017702 151776 MOV 

04 031036 042702 003777 BIC eee é, 
3205 031042 020227 150000 CMP R2,4150000 
3206 031 001412 BEQ 2° : YES. (NO CHAN HERE). 
3207 031050 052765 100000 003270 BIS #81715 CTABS(RS)’; NO. SET CHAN EXISTS IN TABLE. 
3208 031056 017702 151756 MOV Re :°GET INTERLACE BIT. 
3209 031062 042702 157777 BIC rs tere R2 
3210 031066 050265 003270 BIS R2,CTABS(RS) |; SET IT IN TABLE. 
3311 031072 050203 BIS R2.R3 : REMEMBER IT IN R3. 
3212 031074 062705 000002 2s: ADD #2,R5 > NEXT 
3213 031100 020527 000010 CMP R5.4#10 : ALL SINC CHANS CHECKED? 
3214 031104 001331 BNE 1$ : NO. 
3215 031106 012705 003270 MOV #CTABS RS : YES. ALL INTERLACE BITS THE SAME? 
3216 031112 010337 003230 MOV R3, INTLAC : REMEMBER INTER LACE /NON-INTERLACE STATUS 
3217 031116 052703 100000 BIS #BIT15.R3 : (R3 HAS LAST INTERLACE BIT FOUND). 
3218 031122 005715 3$: TST (R5) + GOT AN ENTRY IN TABLE? 
3219 031124 001402 BEQ 4$ : NO. 
3220 031126 021503 CMP (R5) .R3 : YES. INTERLACE BIT SAME? 
3221 031130 001006 BNE 5$ 3 NO. 
3222 031132 062705 000002 4$: ADD #2.R5 : YES. NEXT TABLE ENTRY. 
3223 031136 020527 003300 CMP RS5.ACTABS+10 : DONE? 
3224 031142 001367 BNE 33 : NO. 
3225 031144 000410 é$ : YES. 
3007 031146 5$: HRDERR SCIDE,SYSCON 
3229 031166 005737 002512 6S: TST MFGFLG y MANUFACTURING FLAG SET? 
3230 031172 001420 BEQ 9 3 NO. 
3231 031174 023737 003256 003022 CMP MEMTAB,MFGMO =: YES. NEW MEM 0 = MFG MEM 0 MASTER? 
3032 031202 001004 BNE 7$ 3 NO. 
3233 031204 023737 003270 003024 CMP SYCTAB,MFGSO : NEW SYNC CHAN O = MFG MASTER SYNC CHAN 0? 
3234 031212 001410 BEQ + YES. 
3035 031214 7$: HRDERR SCME,SYSCON 3 NO. 
3237 031234 012737 000010 003254 9$: MOV WBIT3,SYCFLG |; SET ONE FLAG TO INDICATE SYNC CHANS AVAIL. 
3338 031242 012701 003270 MCV #SYCTAB,R1 : 

39 031246 005721 10$: ‘TST : 
$529 B31585 805585 00020 003254 io 0 odeirs.sverug 
3242 031260 006237 Nese 11$: ASR SYCFLG ; 


G 
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GLOBAL SUBROUTINES SECTION 


3243 031264 103370 
3244 031266 000207 
3245 
3246 
3247 


BC 
RT 


C 
Ss 


10$ 


PC 


SEQ 0071 
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GLOBAL SUBROUTINES SECTION SEQ 0072 
3249 $ 
$520 ; SUBROUTINE = ENABLE MEM MGT. 
3338 031270 005737 003244 KTON: TST KTFLG : GOT KT? 
3253 031274 00140 BEQ 1 : NO. 
3254 031276 012737 000001 177572 MOV #1,SRO0 : YES. ENABLE KT11. 
3255 031304 000207 1$: RTS PC 
3256 
3257 
3258 
3259 : 
#500 ; SUBROUTINE = DISABLE MEM MGT. 
3262 031306 KTOFF: ;TST KTFLG : GOT KT11? 
3263 ;BEQ 1$ ; NO. 
06 000240 NOP 
3265 031310 00024 NOP 


0 
3266 031312 012737 000000 177572 MOV #0, SRO t. 
3267 031320 000207 1$: RTS PC esas ch 













VSV11/VS11_ == GRAPHI 


C SY 
GLOBAL SUBROUTINES SECTI 


S. 
ON 


003244 
031270 


INIANIAG 
INNO 
oon 

oo 
oo 
_—uW 


CONAULSWN—O 


ROR RRIRIRRORORS 
Soooooocooo 


WWWIWAIWWIWWNW 


Biers 


7 

1 
O 150000 
2 


az 023737 172354 
SSar O31 273 062737 000200 


NFSNOAWMASO 


3288 03140 


1404 004737 031306 
3289 031410 


172354 


003244 
172354 
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: SUBROUTINE = FILL ALL MEMORY OVER 28K WITH ‘‘STOPN'’. 
: (NOTE = ENABLE KT BEFORE CALLING THIS). 
KTBKGD: TST KTFLG : GOT KT? 
BEQ 9$ : NO. GET OUT. 
JSR PC,KTON : YES. ENABLE KT. 
MOV #STOPN,RO : FILL ALL MEM (>28K) WITH BACKGROUND. 
MOV #1600, a#K IPARG 
1$: MOV #140060,R1 
MOV #150000.R2 
2$: MOV 0,(R1)¢ 
CMP R1.R2 
BNE $ 
CMP a#KIPARG ,KTFLG 
ADD #200, a#KIPAR6 
BR 1§ 
3$: JSR PC KTOFF : DISABLE KT. 





SEQ 0073 
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J 6 
C SYS. DIAG MACRO M1113 28-OCT-81 11:23 PAGE 46 
GLOBAL SUBROUTINES SECTI 


ON SEQ 0074 
3291 : 
353 3; SUBROUTINE TO SAVE RO-RS. 
3294 031412 010037 031462 SAVERS: MOV RO, SAVED 
3295 031416 012700 031464 MOV HSAVED+2,RO 
3296 031422 010120 MOV R1,(RO)+ 
3297 031424 010220 MOV R2,(RO)+ 
3298 031426 010320 MOV R3,(RO)+ 
3299 031430 010420 MOV R4,(RO)+ 
3300 031432 010520 MOV R5,(RO)+ 
3301 031434 000207 RTS PC 
3302 
3303 3 
$208 ; SUBROUTINE TO RESTORE RO-RS. 
3306 031 012700 031464 RESTRS: MOV #SAVED+2 ,RO 
3307 031442 012001 MOV (RO)+,R1 
3308 031444 012002 MOV (RO)+,R2 
031446 012003 MOV (RO)+,R3 

3310 031450 012 MOV (RO) +,R4 

11 031452 012005 MOV (RO) +,R5 
3312 031 013700 031462 MOV SAVED ,RO 
3313 031460 000207 RTS 
3314 
3315 
3316 
3317 031462 000000 SAVED: 0 
3318 031464 000000 0 
3319 031466 000000 0 
3320 031470 000000 0 
3321 031472 000000 0 
3322 031474 000000 0 














VSV11/VS11_ == GRAPHIC 
GLOBAL SUBROUTINES SEC 


3324 
325 
326 
3327 031476 
3328 031500 010037 
3329 031504 062737 
3330 031512 011037 
3331 031516 ih 44-4 
3332 O31 2¢8 013702 
3333 031530 162737 
3334 031536 00530 
3335 031540 00137 
3336 
3337 031542 012737 
3338 031550 
3339 031552 
3340 031554 012737 
3341 031562 
3342 
3343 
3344 
3345 
3346 
3347 
3348 
3349 
3350 031562 004737 
3351 031566 000240 
3352 
3353 
3354 
3355 
3356 
3357 
3358 
3359 025570 
3360 026050 
3361 026072 
336, 00372 
336 
3364 031572 10608 
3365 031574 01003 
3366 031600 042700 
tt B16 162700 
368 031610 062700 
3369 031614 010037 
370 031620 Ate Le 
371 031626 013700 
3372 031632 042700 
3373 031636 peery 
3374 031642 01003 
375 031646 012737 
000207 


3358 031654 


SY 
TI 





S 
ON 


000007 


000010 


000040 


031656 
000240 


003240 
003242 
003242 


027564 


027564 


000204 


000210 


K_ 6 
- DIAG MACRO M1113 28-OCT-81 11:23 PAGE 47 


; SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS. 


ENVIRN: MEMORY RO 
MO 


RO,FREE : 


V 

ADD #2. FREE 

V (RO) ,FRESIZ : 

SUB #4, FRESIZ 

MOV LSUNIT,R2 ; 
10$: SUB #7, FRESIZ : 

DEC R2 

BNE 10$ 

V #8.,K100US : 

EADBUS 

BCOMPLE 

OV #32.,.K100US : 
1$: sMOV HZ 
; V WMAXY60,YMAX ss: 
; CLOCK L,R 
; L a0( : 
; MOV 6(RO) HZ : 
: CMP H7,4#60. : 
: BEQ 2$ : 
: MOV WMAXYSO,YMAX ss: 
5$: SR PC,KTINIT : 


GET 1ST FREE ADDRESS... 
«AND WORD COUNT. 


; GET NUMBER_OF UNITS 


TAKE AWAY 7 WORDS PER UNIT 


ASSUME LSI FOR 100US TIMER. 


NOT LSI == CHANGE TIMER. 


; ASSUME 60 HZ SYSTEM. 


; INSURE CLOCK IS OFF. 
; SET ACTUAL FREQUENCY. 


; INIT KT11 MEM MGT. 


o 
SEAR AAAAAAAEAAAAAAREEEEAEAEAAAEAAEARAAEAEAAAEAERRERERAEREEEEREREEEE 


; NOW THE FOLLOWING CODE PROVIDES A KEY RESTART FOR 


+ THE DIAGNOSTIC SUPERVISOR (DRS) 
i TF EITHER ONE CHANGES, THIS PR 
: BUT FOR NOW == IT'S CONVENIENT 


. AND FOR XXDP+ MONITOR. 


OBABLY WILL NOT WORK 
FOR DEBUGGING PURPOSES. 


; THE FOLLOWING OFFSETS APPLY TO DRS REV D. 
KX. ENTRY= 25570 DRS (REV D) ENTRY FROM XXDP+. 
SUPVSR= 26050 + DRS (REV D) SUPERVISOR RESTART. 
XX.EXIT= 26072 : DRS (REV D) EXIT TO xX 
XXDP= 3726 : XXDP+ RESTART ADDRESS. Oux3726). 
KLUDGE: EMT 42 XXDP+ COMM BLOCK POINTER => RO 
MOV RO, XXCOMM SAVE IT. 
BIC #7777.RO : MASK TO 2K PAGE.. 
SUB #27006,RO 3+» MINUS DRS SIZE (5.75K)... 
ADD #SUPVSR RO 3++PLUS DRS RESTART OFFSET... 
MOV RO 94206 zee = DRS RESTART ADDRESS. 
MOV #157, 08204 C 204 = JMP DRS-RESTAR 
MOV xx Conn RO : GET POINTER AGAIN. 
BIC #7777, RO ; + MASK T 


ADD #XXDP RO ; 
MO 0 ,9n21 ; 
mov HE a#210 


AGE.. 
ee ma RESTART OFFSET.. 
coe * oe ADDRESS. 
: LOC ae XXDP+ 


FRRARAAARAAAERAEAEERRAEAEEAEEEEEAAREERAAEAAEEAEREERAEERERREREEREREEE 


SEQ 0075 
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VSV11/VS11 == GRAPHIC SYS. 
GLOBAL SUBROUTINES SECTION SEQ 0076 
3380 3 
$382 : SUBROUTINE = IF OVER 28k & KT11 AVAIL, INIT KT11. 
38 031656 005037 003244 KTINIT: CLR KTFLG 
384 031662 023727 002120 001577 CMP LSHIME,#1577  ; GOT ENOUGH MEMORY (>28K)? 
385 031670 101444 BLOS 9$ : NO. 
3386 031672 013700 000004 MOV a#ERRVEC,RO + SAVE OLD ERR VEC PTR. 
3387 031676 012737 031770 000004 MOV #2$,aMERRVEC  ; SET ERR VEC PTR. 
388 031704 005737 177572 TST avsro : GOT KT11? 
3389 031710 000240 NOP : (TRAP IF NO). 
3390 031712 013737 002120 003244 MOV LSHIME,KTFLG ; YES. SET KT FLAG. 
3391 031720 042737 000177 003244 BIC #177,KTFLG : 
3392 031726 010037 000004 MOV RO, a#ERRVEC : RESTORE OLD ERR VEC PTR. 
3393 031732 005000 CLR RO : RO = AR : 
3394 031734 012701 172340 MOV #KIPARO,R1 t R1 = KI REGS PTR. 
3395 031740 012761 077406 177740 1$: MOV #77406,-40(R1) : SET DESCRIPTOR REG. 
3396 031746 010021 MOV RO, (R15+ : SET KIPAR REG. 
3397 031750 062700 000200 ADD #200,R0 : BUMP AR DATA BY "‘4k"’. 
3398 031754 020027 002000 CMP RO, #2000 : AT "1/0"? 
3399 031760 001367 BNE : NO. 
3400 031762 012741 177600 MOV #177600,-(R1) =: YES. SET KTPAR7 FOR I/O. 
3401 031766 000405 BR 9$ 
3403 031770 2s: FORRT! 
031770 012716 031776 MOV #.+6, (SP) : FORCE RTI RETURN TO - 
031774 000002 RTI : = NEXT LOC. 
3404 031776 010037 000004 MOV RO, a#ERRVEC > RESTORE OLD ERR VEC PTR. 
3406 032002 000207 9$: RTS PC 





m 6 
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SECTION 


or 
~ 
< 
Lend 4d 


oa 
z 

ae 
—~+— 
NS 
mow 


SEQ 0077 
~SBTTL INITIALIZE SECTION 


5+ 
3; THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
3; AT THE BEGINNING OF EACH PASS. 


2004 BGNPROT 
2004 


0 

0 177777 «(177777 =—177777 -1, -1, -1, ~1 ; NO DEVICE PROTECTION REQUIRED. 
032014 ENDPROT 

032014 BGNINIT 


IF ““START’’ OR "RESTART'’, SET QUICK=PASS FLAG AND BUS-INIT. 
IF *‘CONTINUE’’, NOTHING IS REQUIRED. 


FELEEELEEELERELE SELES EELS REL ELEE REL EE 
RAN AOSRISUE UNI SORNOUEUNVIOCRNANRWU—OOm - 


032014 005037 023064 CLR SIFLAG sCLEAR ‘’SOFT INIT’’ FLAG 
032020 READEF #EF. CONTINUE 
032026 BNCOMPLETE i$ 
032080 023737 003026 002012 CMP *UNITN.LSUNIT — UNIT_IN RANGE? 
032036 103056 BHIS  4$ “BR IF NO. 
032040 005737 003224 TST DUFLG sDROPPED UNIT? 
032044 100460 BMI ss NXTU “BR IF YES 
032046 013701 003026 MOV —sCUNITN,R1 
032052 006301 ASL sR 
032054 005761 003302 TST —_—« ERTABL(R1) 
032060 001504 BEQ  —s SETU 
032 032761 040000 003302 BIT #B1T14,ERTABL (R1) : DROPPED? 
032070 001046 BNE —sNXTU 
032072 EXIT INIT :DO NOTHING IF "CONTINUE". 
032076 1$: READEF #EF .NEW 
032104 BNCOMPLETE NXTU ; TAKE NEXT UNIT IF NOT NEW PASS. 
032106 READEF #EF START 
032114 BCOMPLETE 28 
032116 READEF  #EF RESTART 
032124 BNCOMPLETE 31$ 
032126 2s: ; 1ST PASS, BUS-INIT.. 
032126 BRESET bus RESET. 
3445 032130 012737 177777 003030 MOV. #1, OVP -QUICK VERIFY 
3446 032136 005037 030070 CLR _—sCTESTk °° "CLEAR TOTAL TEST COUNT. 
3447 032142 004737 031476 JSR PC, ,ENVIRN ; SET ENVIRONMENT. 
3448 032146 012700 003302 MOV —s- #ERTABL RO 
3449 032152 005020 30$: CLR (RO) + CLEAR THE ERROR TABLE 
3450 032154 020027 003502 te RO ERTABE 
3451 032160 103774 BLO 30$ 
3492 032162 000404 BR is 
3453 032164 005037 003030 31$: CLR QvP 
$94 032170 000137 032240 JM ss PASRPT GO REPORT THE STATUS 
3456 0321746 4$: 
3457 032174 012737 177777 003026 NEWPAS: MOV —s #1. UNI TN :INIT UNIT NUMBER. 
3458 032202 005037 032726 CLR —sC+DEVENT CLEAR COUNT OF DEVICES RUNNING 
35 635546 005237 003026 ey Te? ete AND SET NEXT UNIT NUMBER 
3461 052014 $03537 bo8056 002012 CMP —sUNITN, LSUNIT 
032222 103423 BLO —sSETU 
3463 032224 012737 177777 003224 MOV —s #1 .DUFLG 
3464 032232 000401 BR 11$ 


wages l 


N 
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INITIALIZE SECTION SEQ 0078 
65 0322 DOCLN :ABORT, NO MORE UNITS. 
66 032236 000240 11$: NOP 
67 032240 PASRPT: 
68 O36 40 023727 002012 000001 CMP LSUNIT,#1 zHOW MANY UNITS SELECTED? 
69 032266 10175 BLOS  NEWPAS “BR IF ONLY 1 
70 032250 005737 032726 TST DEVCNT TARE ANY STILL RUNNING? 
71 032254 001747 BEQ NEWPAS ‘BR IF NO 
2 032256 RFLAGS RO 
3473 032260 032700 000100 BIT #ISR,RO sSHOULD WE PRINT STATISTICS 
347% 032264 001343 BNE NEWPAS “BR IF NO 
3476 032266 DORPT 
3477 032270 000741 BR NEWPAS 
3478 032272 108: 
3480 032272 SETU: GPHARD UNITN,RO :GET UNIT N P-TABLE POINTER. 
3481 032300 BNCOMPLETE NXTU :BR IF UNIT NOT AVAILABLE. 
3482 032302 005037 003224 CLR DUFLG SCLEAR "DROPPED’’ FLAG. 
3483 032306 005237 032726 INC DEVCNT 
3484 032312 012001 MOV (RO) +,R1 ; GET 1ST REGISTER ADDRESS. 
3485 032314 012702 003032 MOV #DPC ,R2 
3486 032320 010122 20$: MOV R1, (R2)+ 
3487 032322 062701 000002 ADD #2,R1 
3488 032326 020227 003046 CMP R2.ALMR 
3489 032332 101772 BLOS 208 
sa? 
3492 032334 012001 MOV (RO)+,R1 ; GET 1ST VECTOR ADDRESS. 
3493 032336 Bt ONS MOV (RO) ,R2 : GET INTERRUPT PRIORITY 
3494 032340 01203 003050 MOV (RO) +,DPRI ; SET INTERRUPT PRIORITY. 
3495 032344 010137 003052 MOV R1, ; SET STOP VECTOR POINTER... 
3496 032350 012721 026242 MOV #DSTP, (R1)+ +... VECTOR... 
3497 032354 010221 MOV R2,(Ri)+ :...AND PRIORITY. 
3498 032356 010137 003054 MOV R1,JSMV > DITTO JOY-STICK MATCH. 
3499 032362 012721 026274 MOV #DJM, (R1)+ 
3500 032366 010221 MOV R2,(R1)+ 
3501 032370 010137 003056 MOV R1.TOTV : DITTO TIME-OUT. 
3302 032374 012721 026210 MOV #DTO, (R1)+ 
3503 032400 010221 MOV R2,(R1)+ 
3504 036708 010137 003060 MOV R1,JSSV : DITTO JOY-STICK SWITCH. 
3505 032406 012721 026326 MOV #055, (R1)* 
3506 03241 910281 MOV R2,(R1)+ 
3507 032414 010137 003062 MOV R1,LUTV : DITTO LUT DONE. 
3508 0324 0 o12721 026602 MOV #LDUN, (R1)+ 
325 § " 4 teat 003216 MOV meatRde GET "LUT AVAILABLE’ ENTRY 
+ Py 
3511 032432 012737 001676 003250 MOV #MAXY60,YMAX > ASSUME 60HZ FREQUENCY. 
351¢ 032440 012737 000074 003246 MOV #60. ,HZ : 
3513 032446 005720 TST (RO) + ; WHAT IS SELECTED FREQUENCY? 
3514 032450 0014 BEQ 21$ : BR IF 60HZ 
3515 032452 0127 00062 003246 MOV #50. HZ : SAY 50 HZ 
3518 032460 012737 001776 003250 aa MOV WMAXYSO.YMAX : AND SET UP FOR 512 VISIBLE LINES 
3518 032466 005037 003064 CLR OPT! 
3255 §35¢76 001008 = STU OMT IF DPUONLY 
3521 032500 012737 040000 603064 MOV #1,0PT! ‘SET OPTIONAL I(NTENSIFY) BIT. 





22 032506 1$: 


TST 
BEQ 


QvP 
5$ 


31ST PASS ?? 
NO, SKIP THE 


PASS 1 STUFF. 


SEQ 0079 
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INITIALIZE SECTION SEQ 0080 


3526 3 
3327 : 1ST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID, AND 
3328 : THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 
3530 032506 013701 003026 MOV UNITN,R1 
3531 032512 906301 ASL 
353¢ 032514 052761 100000 003302 BIS #81T15,ERTABL(R1) ; SAY DEVICE RUNNING 
3533 032522 005037 022300 CLR EXTA : CLEAR ERROR EXTENSION FLAG. 
3534 032526 023727 002012 000001 CMP LSUNIT,#1 + ARE WE TESTING MULTIPLE UNITS? 
3535 032534 101416 BLOS _10$ : BR IF NO. 
3536 032536 RFLAGS RO : YES == GET OPERATOR FLAGS. 
3537 032540 032700 001000 IT #PNT,RO + SHOULD WE PRINT UNIT #? 
3538 032544 001412 BEQ : BR IF NOT. 
3539 032546 PRINTF #PUNIT,UNITN ; PRINT THE UNIT # 
3540 032572 10S: 
3541 032572 005037 003226 CLR NODEV 
3542 032576 013701 003032 MOV DPC,R1 
3543 032602 013702 003040 MOV DYR,R2 
3544 032606 004737 027566 JSR PC .NXM :TEST ALL 4 DPU REGISTERS... 
3545 032612 103003 BCC 2$ t...AND BR IF ALL OK. 
3546 032614 010137 003226 MOV R1,NODEV [FLAG DEVICE AS NON-EXISTENT 
3547 032620 000416 BR ‘DROP THIS UNIT. 
3548 032622 012777 000000 150204 2: MOV #0,aDSR ‘SELECT REAL DSR 
3549 032630 005777 150260 TST SR :I1$ UNIT STOPPED? 
3550 032634 100413 BMI 4$ :BR IF DISPLAY INITIALIZED OK. 
3551 032636 013701 003026 MOV UNITN,R1 
3552 032642 006301 ASL 
3553 032644 005261 003302 INC ERTABL (R1) 
3554 032650 012737 000001 003226 MOV #1,NODEV :FLAG AS NOT IDLE 
3355 032656 012737 177777 003224 3$: MC’ #~1 ,DUFLG 
3557 032 005737 003216 4$: TST LUTAV : NOW, SEE IF LUT INSTALLED. 
3558 032670 001412 BEQ 5$ : BR IF NO 
3559 032672 013701 003042 MOV LSR.R1 
3560 032676 01570¢ 003046 MOV LMR,R2 
3561 032702 004737 027566 JSR PC .NXM : TEST ALL LUT REGISTERS... 
3562 032706 103003 BCC 5$ :...BR IF IT* RE. 
3563 032710 012737 000000 003216 MOV #0,LUTAV : CLEAR "LUT AVAILABLE’ FLAG. 
3365 > FINALLY, SET CPU PRIORITY AND WE'RE DONE. 
3567 032716 S$: SETPRI #PRIOO :ENABLE INTERRUPTS. 
3568 032724 ENDINIT 
3570 032726 DEVCNT: 0 :COUNT OF RUNNING DEVICES 
3371 032730 045 116 045 PUNIT: “ASCIZ /ENINZAt*H*® TESTING UNIT 2D2%A eeeee/ 
3573 
3574 
358 
3577 ¢ SUBROUTINE - IF USER PATCHABLE FLAG "FORCER" IS SET (NON-ZERO), 
3278 : THEN FORCE RETURN TO THE NEXT ERROR CALL (HRDERR) IN SEQUENCE. 
3580 032776 005737 003020 FORCET: TST FORCER : FORCE ERROR TYPOUT? 
338! 033002 00140 Q 1 : NO. 
582 033004 062716 000004 ADD #4, (SP) t YES. FORCE RTN TO THE HRDERR CALL. 
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INITIALIZE SECTION 


3583 033010 000207 1$: RTS PC 


SEQ 0081 
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ADD AND DROP UNITS SECTIONS 


vw 
co 
uw 


033012 
033012 


Ww AA 
eerie eaves 


3602 033106 


3609 


siatetatatatatataty 
WONAUSWN—O 


012737 
010001 


006301 
052761 
000240 


045 


100000 
040000 


116 


177777 


140000 
000240 


116 


003 


302 
003302 


045 


003224 


003302 
000240 


045 





SEQ 0082 


-SBTTL ADD AND DROP UNITS SECTIONS 


+ THE ADD-UNIT seth ie CONTAINS THE coo THAT _CAUSES A 
; TO BE (A) ADDED TO THE TEST THE FI 
OR (B) RE-INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED. 


a 
wn 
ee 


+ 
+ 


1$: 





DEVICE 
LIST FOR 


BGNAU 

MOV = RO, RT ; GET UNIT TO BE ADDED (RO) 

ASL oR T A WORD INDEX 

BIS #100000, ERTABL CRD : SET THE ACTIVE! By 
BIC, #40000, »ERTABL (R1) ; CLEAR THE "DROPPED’’ BIT 


EXIT AU 
yy /ENZA_ UNIT ZD%A ADDED/ 


ENDAU 3 UNUSED. 


THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO BE REMOVED FROM THE TEST LIST. 


SUPVSR DOES THE ‘DROPPING’’, 
“DROPPED"’ UNITS 


COMMAND, OTHER 
WILL PRINT ALL DROP 
WHICH ARE STILL ACTIVE. 

UPON ENTRY, RO CONTAINS THE UNIT TO BE DROPPED. 


THIS IS s94 TO TELL THE MAN. 
ARE ath inatts ON OPERATOR my. OR 
WISE REMAIN INACTIVE. THE ‘DIS 
PED UNITS, AND THE PETABLES” OF THOSE 


DU 

V #-1,DUFLG 

— ai, STIK(R1) sREMOVE *‘JOY-STICK"’ FLAG. 
BIS #140000, wanece : 3, SAY DROPPED 
240,240,240 272277223 

PRINTF “#1$,RO 

oan /EIN%ZA_ UNIT %D%A DROPPED/ 


ENDDU 


p++ 
; AUTO-DROP CODE SECTION. 


BGNAUTO 
ENDAUTO 


| 
| 
al 
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CLEAN-UP AND REPORT CODING SECTIONS SEQ 0083 
363 .SBTTL CLEAN-UP AND REPORT CODING SECTIONS 
3634 pee 
3635 ; THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS 
3636 ; EXECUTED AT THE END OF EACH PASS (OR SUB-PASS) . 
$030 : _USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE. 
3639 033220 BGNCLN - y= 
3640 033220 005737 003224 TST DUFLG :"DROPPED'’ FLAG IS SET ON... 
3641 033224 100414 BMI 1$ +...AND GROSS DPU FAULT. 
3068 :...DON'T TRY TO XCT DPU CODE. 
3644 033226 004737 026756 JSR PC ,RELEAS :CHECK FOR "'HUNG'’ DPU. 
3645 033232 012777 040000 147576 MOV #GTJSSW,aDXR | :CLEAR PENDING SWITCH INTERRUPT 
3646 033240 004737 027454 JSR PC,WAITF 
3647 033244 012777 100000 147566 MOV #100000, aDvR :D0 SOFT INIT. 
3648 033252 004737 027454 JSR PC 
3649 033256 005737 003216 1$: TST lyfe 
3650 033262 001402 BEQ 2s 
3651 033264 005077 147552 CLR @LSR : IF LUT, CLEAR STATUS. 
365¢ 033270 2s: ENDCLN 
p++ 

3654 ; THE REPORT CODING SECTION CONTAINS THE 
$022 : 'PRINTS'’ CALLS THAT GENERATE STATISTICAL REPORTS. 
3657 033272 BGNRPT 
3658 033272 PRINTS M#DEVSUM 
3659 033312 010246 MOV R2,-(SP) 

14 010346 MOV R3,-(SP) 
3661 033316 010446 MOV R4,-(SP) 
3662 033320 012704 003302 MOV #ERTABL RG : GET START OF ERROR TABLE. 
3663 033324 005003 CLR : CLEAR UNIT 
3664 033326 011402 1$: MOV (R4) ,R2 : GET ERROR TABLE ENTRY @ TEST IT. 
3665 033330 001467 BEQ 4$ : ZERO IF UNIT NOT 
3666 033332 100066 BPL 4$ 
3667 033334 032702 040000 BIT #B1T14,R2 : WAS UNIT DROPPED? 
3668 033340 001015 BNE ; Y 
3669 033342 042702 170000 BIC #°C7777 Re : GET ERROR COUNT FIELD 
3670 033346 PRINTS #DEVONL,R3,R2 3; PRINT 
37) ed $0089 160000 2$ BRP R2,4160000 WAS UNIT NON-EXISTENT? 
3673 033400 001012 BNE 3$ : BR IF NO 
3674 033402 PRINTS #DEVNXR,R3 

75 033424 000431 BR 
76 033426 020227 160001 3$: CMP R2,4160001 : WAS UNIT NOT READY AT STARTUP? 

3677 033432 001012 BNE : BR IF NO. 
3678 033434 PRINTS #DEVNRD,R3 
3679 033456 000414 AR 
3680 033460 042702 170000 30$: BIC #°C7777 .Re 
3681 033464 PRINTS M#DEVDRO,R3,R2 
3682 033510 062704 000002 4$: ADD #2,R4 
3683 033514 005203 INC R 
3684 033516 4 7 003502 CMP R4,MERTABE 
3685 033522 103701 BLO 1$ 
3686 033524 012604 MOV (SP)+,R4 
3687 033526 012603 MOV (SP)+,R3 
3688 0535 012602 MOV (SP)+, RS 












7 
rf MACRO M1113 28-OCT-81 11:23 PAGE $2.4 


VSV11/VS11 == GRAPHIC SYS. 
CLEAN-UP IONS SEQ 0084 


DI 
AND REPORT CODING SE 


/ 
/%A UNIT 203%A DROPPED, ERRORS = 2D2N 


3689 033532 ENDRPT ; UNUSED. 
3691 
3692 033534 045 116 045 DEVSUM: .ASCIZ oe STATUS SUMMARY : 2N/ 
3693 033571 045 101 040 DEVONL: .ASCIZ /%A UNIT ZD35%A ONLINE, ERRORS = 2DZN/ 
033641 045 101 040 DEVNXR: .ASCIZ /%A UNIT %D3%A DROPPED, NON-EXISTENT wos eee 
3695 033723 045 101 040 Vv eASCIZ /%A UNIT ZD3%A DROPPED, NOT READY 4 RTUPZN/ 
0 045 101 ‘~aE 
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SEQ 0085 


3699 .SBITL 
3700 [SBITL HARDWARE TEST SECTION. 
3701 :SBIT 
3702 “SBITL TEST # DESCRIPTION 
3703 SSBITL <-=-==  eeeewnennne 
3704 > SBITL 
3705 000000 TN= 
06 ~NLIST 
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eee TEST 1 STATIC RESET SEQ 0086 
3708 
FARRAR REE REEREREAKAEREEEREREREERERHERERREEREEEE 
3* 
- BEGIN TEST 1 - STATIC RESET 
s paaqaneaeqneaneqneneqseqquconsnnsnqesqseqnaseqnouecqneqecqcqosseseneees 
; CITERATION COUNT = 1.) 
3709 ; 
3710 ; EXECUTE A BUS RESET INSTRUCTION AND CHECK THE STATE OF THE DPU. 
3711 ; THIS TEST IS rte J ries TO THE ‘‘SOFT=INIT’* ROUTINE (DPINIT:) 
3712 ; USED TO INIT THE DPU AT THE START OF MANY OF THE TESTS IN THIS 
3713 ; PROGRAM. THE DIFFERENCES ARE THAT INSTEAD OF A SOFTWARE DPU INIT 
3714 ; A BUS RESET IS USED, AND THAT THE ERROR MESSAGE READS ‘BUS RESET'’. 
aft? : INSTEAD OF "SOF T=INIT' 
at 4 034122 004737 027702 STRSET: JSR PC,TSTGO ; TITLE. 
3719 034126 1$: 
3720 034126 BGNSEG fp KKKRK KKK KKK KEKE KKK KKK KKK KKK BEGIN SEGMENT. 
3721 034130 BRESET ; BUS RESET. 
3722 034132 004737 027454 JSR PC, WAI TF ;WAIT FOR A COMPLETE 
3723 034136 005002 CLR ? sEXPECT DPC TO BE 0. 
3724 034140 012703 100000 MOV #BIT15,R3 sEXPECT DSR TO BE 109000. 
725 034144 005777 146662 TST aDPC sTEST THE DPC, S/B = 
3726 034150 001003 BNE 2s ‘ERROR IF NOT 0. 
3727 034152 027703 146656 CMP aDSR,R3 ; CHECK DSR. 
3728 034156 001410 
3729 034160 2$: DFERR BRINIT,PCSERR ;REPORT ERROR IN DPC OR DSR. 
3730 034200 737 023422 3$: JSR PC, IIRCHK ;CHECK THE INTERNAL REGISTERS 
3731 034204 005004 CLR R4 
3732 034206 005005 CLR R5 :DXR AND DYR SHOULD BE 0. 
3733 034210 005777 146622 TST aDXR 
3734 034214 001003 BNE 4$ 
3735 034216 005777 146616 TST aDYR 
3736 034222 001410 BEQ $ 
He LA 034224 4$: DFERR BRINIT,XYERR 
3739 034244 5$: ENDSEG 3 KKKK KKK KKK KKK KKK KKK KKK KKK END SEGMENT. 
3740 034246 COMEND 1$ 
034246 004737 027646 JSR PC,LOOP ; REPEAT ‘TIL LOOPER EXPIRES. 
034252 103401 BCS 64$ 
034254 000402 BR 65$ 
034256 000137 034126 64$: JMP 1$ 
034262 004737 030072 65$: JSR PC, TSTEND ; PRINT ERROR SUMMARY, IF REQ‘ 
od 034266 EXIT TST : EXIT THIS TEST th he eM SN 
3743 034272 END.TEST 


a ai ah a ah SA Nae Sa tne 


is END TEST 1 


SEERA EAEAAAERAAAAEAEAAAAAAAAAAEAAERAAERAARAAEERERAAEEEEEREEE 
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wee TEST 1 STATIC RESET 





SEQ 0087 
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eee TEST 2 RESET ONES SEQ 0088 
3745 
FARRAR AAERAREARAREEERE RARER EEEEERERREREEREREEAEEREREEEEEEREREEREERERRERE 
3* 
* BEGIN TEST 2. = _——- RESET ONES 
** 
TTITITIIITIIIIII IIIT TIT IIT Titi TTitititiiitiiiiiiiititi titi ttt t tii 
: (ITERATION COUNT = 1.) 
3746 3 
3747 : SET ALL APPLICABLE REGISTERS TO ONES, CHECK THAT ONES GOT SET, THEN 
3748 > EXECUTE A BUS RESET INSTRUCTION AND CHECK THE STATE OF THE 
3749 : THIS IS THE SAME AS THE ''STATIC R RESET TEST ABOVE, EXCEPT THAT 
3750 : THE REGISTERS ARE SET TO ONES FI 
3751 ; RISEXPECTED, R2=RECEIVED, RO,R3= CORK REGS. 
3753 034340 004737 027702 RESET1: JSR PC, TSTGO : TITLE. , 
er: 034344 1$: BGNSEG 3D SRKRK RRR EERE KKK K KKK KKK KKK BEGIN SEGMENT. 
3756 034346 012701 177763 MOV #177763,R1 
3757 034352 WIDSRA R1,CSR 
034352 012700 000013 MOV #SETCSR,RO : WRITE R1 INTO CSR . 
034356 050100 BIS R1,R 
034360 010077 146450 MOV RO, aDSR 
3758 034364 RDDSRA CSR,R2 
034364 012777 000003 146442 MOV #SELCSR,@DSR —;_READ CSR INTO R2 . 
034372 017702 146436 MOV aDSR,R 
3759 034376 IFERROR ICSRE, EXPREC, . CKLOOP 
034376 020102 CMP R1,R2 : OK? 
034400 001411 -  BEQ 64 YES. 
034402 HRDERR ICSRE,EXPREC, CKLOOP > NO. 
034424 64$: 
3760 
3761 034424 WIDSRA #17776 
424 012777 177774 146402 MOV F177 pene act?! SETMRR, aDsR 
3762 034432 WIDSRA #170000,MPM 
012777 170015 146374 MOV #1700006"C17!SETMPM., aDsR 
3763 034440 RDDSRA MRR, 
034440 012777 000004 146366 MOV OSELRAR, @DSR —s;-_ READ MRR INTO R2 . 
017702 146362 MOV aDSR,R2 
3764 034452 010203 MOV R2,R 
3765 034454 042702 170000 BIC #170000,R2 : MRR OK? 
3766 034460 012701 007777 MOV #7777, RA 
3767 034464 IFERROR IMRRE .EXPREC, ,CKLOOP 
034464 020102 CMP R1,R2- ; OK? 
034466 001411 BEQ 65 YES. 
034470 HRDERR IMRRE,EXPREC,CKLOOP : NO. 
03451 65$: 
3768 034512 010302 MOV R : MPM OK? 
3769 034514 042702 007777 BIC #777 
3370 ORee5e aren Seaeee TERROR i CKLOOP 
ETS: 020102 CMP RS” 3 OK? 
034526 001411 BEOQ 8 YES. 
034530 HRDERR ae one male : NO. 


034552 66$: 





a 


eee TEST 
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2 RESET 
3773 03455 2g 
034552 012777 
3774 034560 
034560 012777 
3775 034566 
034566 012777 
034574 017702 
3776 034600 010203 
3777 034602 042702 
3778 034606 012701 
3779 034612 
34612 020102 
034614 001411 
034616 
034 
3780 034640 010302 
3781 034642 042702 
034646 012701 
3783 034652 
034652 020102 
034654 001411 
034656 
034700 
3785 034700 
3786 034702 004737 
3787 034 005002 
3788 034710 012703 
3789 034714 005777 
3790 034720 001003 
3791 034722 027703 
3792 034726 001410 
3 034730 
7 034750 004737 
3795 034754 005004 
034756 005005 
3797 034760 005777 
3798 034764 001003 
3799 034766 005777 
3800 034772 001410 
3801 034774 
3802 
3803 035014 
3804 
3805 035016 
035016 004737 
035022 103401 
035024 000402 
035026 000137 
035032 004737 
3806 035036 


3807 
3808 035042 





177776 =146254 
170017 146246 


000006 146240 
146234 


170000 
007777 


007777 
170000 


027454 
100000 
146112 
146106 
023422 


146052 
146046 


027646 


034344 
030072 


67$: 


68$: 
10$: 


—— 
o— 
AA 
ee te 


14$: 


69$: 
70$: 
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WIDSRA #177760,x 
MOV 41777606017! SETXRR, aDsR 
WIDSRA #170000,XPM 
MOV #1700008*C 17! SETXPM, aDSR 
RDDSRA_ XRR, 
MOV #SELXRR,@DSR ; READ XRR INTO R2 . 
MOV aDSR,R2 
MOV R2,R 
BIC #170000,R2 : MRR OK? 
MOV # oR 
IFERROR IXRRE,EXPREC,,CKLOOP 
CMP R1,R2 3 OK? 
EQ 6 3; VES. 
HRDERR IXRRE,EXPREC,CKLOOP : NO. 
MOV Bg ; XPM OK? 
BIC #7777 R2 
MOV #170000,R1 
IFERROR IXPME, EXPREC, . CKLOOP 
CMP R1,R2 3; OK? 
BEQ 68 YES 
HRDERR IXPME,EXPREC, ckLOOP ; NO. 
BRESET BUS RESET. 
JSR PC ,WAITF WAIT FOR A COMPLETE 
CLR TEXPECT DPC TO BE 0. 
MOV #B1IT15,R3 SEXPECT DSR TO BE 100000. 
TST aDPC sTEST THE DPC, S/B =0. 
BNE 11$ TERROR IF NOT 0 
~~ $052.85 s CHECK DSR. 
DFERR ®BRINIT,PCSERR ;REPORT ERROR IN DPC OR DSR. 
an PC, IIRCHK [CHECK THE INTERNAL REGISTERS 
CLR R5 z;DXR AND DYR SHOULD BE 0. 
TST @DXR 
BNE 13$ 
TST aDYR 
BEQ 14$ 
DFERR BRINIT,XYERR 
ENDSEG DCRR ERR EEE E EK KKK KKK END SEGMENT. 
COMEND 1$ 
JSR PC,LOOP ; REPEAT ‘TIL LOOPER EXPIRES. 
BCS 9$ 
BR 0$ 
JMP 1$ 
JSR PC, TSTEND ; PRINT ERROR SUMMARY, IF REQ'D. 
EXIT TST ; EXIT THIS TEST >>>>3>>>>>>>>>3>>>>>>>>>>> 
END.TEST 


FEMA AAAAAEAAAAAAARAAAAAEAAEAAAEAARARERARAAAEAAAAKEREARERERRAREReRReeAeeeeAee 


SEQ 0089 
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eee TEST 2 RESE SEQ 0090 





38 
se END TEST 2 
3* 


—MmARAAARARASDARARALALALALARELALELALSAA SELES ARLE REE ERS ER SEAR EATER TAREE SS 


aa 


—— 


7 
VSV11/VS11 == a SYS. DIAG MACRO M1113 28-OCT-81 11:23 PAGE 56 


. 
| 
(eee TEST 3 SOFT INIT ONES SEQ 0091 
| 3810 
FERAA TARA AAAAAAAAAAAAAAAEERAEAAAAAAEAEAAA ARERR ARAARAAAEREAERERERE RENEE AS 
| ce 
| * BEGIN TEST 3 = SOFT INIT ONES 
*® 
[eRe eeeeeeeeNeeReeaaeeeeeeeeneeeeeeaneeeeeneeenteeeneeteeeneeneeeeees 
| : (ITERATION COUNT = 10.) 
3811 ; 
3812 : SET ALL APPLICABLE REGISTERS TO ONES, CHECK THAT ONES GOT SET, THEN 
3813 : EXECUTE SOFT INIT AND CHECK THE STATE OF THE DPU. 
3814 : THIS IS THE SAME AS THE "RESET ONES'' TEST ABOVE, EXCEPT THAT 
3815 > A SOFT INIT IS EXECUTED INSTEAD OF A RESET INSTRUCTION. 
3816 + RIZEXPECTED, R2=RECEIVED, RO,R3=WORK REGS. 
3818 035114 004737 027702 SINIT1: JSR PC, TSTGO : TITLE. 
Se 035120 1$: BGNSEG b KRKK KKK KEKE EEE K KKK KKK KK KKK BEGIN SEGMENT. 
3821 035122 012701 177763 MOV #177763,R1 
3822 035126 WIDSRA R1,CS 
035126 012700 000013 MOV #SETCSR,RO ; WRITE R1 INTO CSR . 
035132 050100 x BIS R1,RO 
035134 010077 145674 MOV RO, aDSR 
3823 035140 RDDSRA CSR,R2 
035140 012777 000003 145666 MOV #SELCSR.@DSR =; -READ CSR INTO R2. 
035146 017702 145662 MOV aD 
3824 035152 IFERROR ICSRE, EXPREC, .CKLOOP 
035152 020102 CMP R1,R2 ; OK? 
635154 001411 BEQ b YES. 
035156 HRDERR ICSRE,EXPREC, cKLOoP : NO. 
035200 64$: 
3825 
3826 035200 WIDSRA #17776 
035200 012777 177774 145626 MOV Boao ee ati 7!SETMRR, aDsR 
3827 035206 WIDSRA #170000, MPM 
035206 012777 170015 145620 MOV #1700006°C17!SETMPM, aDSR 
3828 035214 RDDSRA MAR,R 
035214 012777 000004 145612 MOV #SELMRR,@DSR =; READ MRR INTO R2 . 
035222 017702 145606 MOV apsR R2 
3829 035226 010203 MOV 
3830 035230 042702 170000 BIC #170000, 2 : MRR OK? 
3831 035234 012701 007777 MOV #7777,Ri 
3832 035240 IFERROR IMRRE ,EXPREC, ,CKLOOP_ 
035240 020102 CMP R1,R2- ; OK? 
035242 001411 BEQ a5 YES. 
035244 HRDERR IMRRE,EXPREC,CKLOOP : NO. 
035266 65$: 
3833 035266 010302 MOV R3,R : MPM OK? 
3834 035270 042702 007777 BIC #777 
awn TERROR Pm CKLOOP. 
035300 020102 CMP Re i Ok? ’ 
035302 001411 BEQ Bb ES. 
035304 HRDERR appear : NO. 
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ST SOFT INIT ONES SEQ 0092 
3838 035326 WIDSRA #177760,X 
035326 012777 177776 145500 MOV H1777606C17!SETARR, aDSR 
3839 0353 WIDSRA #170000,X 
ORee78 012777 170017 145472 MOV #1700 Ob C17! SETKPM, aDSR 
3840 035342 RDDSRA XRR,R 
Os 2ee5 012777 000006 145464 MOV #SELXRR. aDsR ; READ XRR INTO R2 . 
035350 017702 145460 MOV ws R,R2 
3841 035354 01020 MOV 
ks 035356 042702 170000 BIC #170000 Ae 3 XRR OK? 
3843 035362 012701 007777 MOV 
3844 035366 IFERROR a eae sEXPREC, .CKLOOP 
035366 020102 CMP R1,R2 : OK? 
035370 001411 BEQ 67 YES. 
035372 HRDERR- IXRRE, EXPREC, CKLOOP 3; NO. 
035414 67$: 
035414 010302 MOV Re 3; MPM OK? 
6 035416 042702 007777 BIC R36h R2 
035422 012701 170000 MOV #170008. R1 
3848 035426 IFERROR IXPME, EXPREC 
035426 020102 CMP R1,R2 3 OK? 
035430 001410 BEQ 68 s VES. 
035432 HRDERR' IXPME,EXPREC, 3; NO. 
035452 68$: 
330 
3851 035452 012777 100000 145360 MOV #100000, aDYR :D0 SOFT INIT. 
S26 035460 004737 027454 JSR PC, WAITF ;WAIT FOR STOP 
3853 035464 005002 CLR R2 SEXPECT DPC TO BE 0. 
3854 035466 012703 100000 MOV #B1T15,R3 SEXPECT DSR TO BE 100000. 
3855 035472 005777 145334 TST aDPC 3: TEST THE DPC, S/B =0. 
3856 035476 001003 BNE 11$ SERROR IF NOT 0. 
3857 035500 027703 145330 CMP aDSR,R3 ;CHECK DSR. 
3858 035504 001410 BEQ 12$ 
3859 035506 11$: DFERR NSINIT,PCSERR ;REPORT ERROR IN DPC OR DSR. 
3860 035526 004737 023422 12$: JSR PC, IIRCHK ;CHECK THE INTERNAL REGISTERS 
3861 035532 00500 CLR R4 
3862 035534 005005 CLR R5 :DXR AND DYR SHOULD BE 0. 
3863 035536 005777 145274 TST aDXR 
3864 035542 001003 BNE 13$ 
3865 035544 005777 145270 TST aDYR 
3866 035550 001410 BEQ 14$ 
3867 035552 13$ DFERR NSINIT,XYERR 
$659 035572 14$: ENDSEG 2 KRKRK KKK ERE K KKK KKK KKK KKK END SEGMENT. 
3871 035574 COMEND 1$ 
0355 004737 027646 JSR PC,LOOP ; REPEAT ‘TIL LOOPER EXPIRES. 
035 103401 BCS 69§ 
035602 000402 BR 0$ 
035604 000137 035120 69S: JMP 1$ 
035610 004737 030072 70$: JSR PC, TSTEND 3; PRINT ERROR SUMMARY, IF REQ'D. 
3872 035614 EXIT TST > EXIT THIS TEST >>>>5>>>>>>>>>>>>>>>>>>>> 


3873 
3874 035620 END. TEST 
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eee TEST 3 SOFT INIT ONES 


SRA EREAEREEREKEEREREEEREEEKEEEEEEEERERREREKEEEKEED 
* 


:* END TEST 3 
3* 


SRE EEREREEREEREREKEEEEEEEEKEEEEEEREEE 


SEQ 0093 
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eee TEST 4 REGISTERS UNIQUE ADDRESS SEQ 0094 
3876 
5 RREKERAERERARKEAEAERAKEKEEAEEEAEEAAKERAKAEAAKEKAAREARAKEARAEAERAREEAAEREAAEEEE 
;* 
3* BEGIN TEST 4 = REGISTERS UNIQUE ADDRESS 
** 
: RERKAAKKAARAARAKAAARAERAEEREEEEAEAAEEAEAEREREEEEERAEREREREAAEREEAAEKEEAEREKEE 
: (ITERATION COUNT = 10.) 
3877 : 
3878 ; ALL REGISTERS ARE SET TO THEIR NORMAL STATIC STATE VIA A SOFT INIT. 
3879 ; EACH APPLICABLE REGISTER, IN TURN, IS SET TO ITS CAPABILITY FOR ONES, 
3880 : AND THEN ALL OF THE OTHER REGISTERS ARE CHECKED THAT THEY REMAINED 
3881 : AT THEIR STATIC STATE. 
3883 035704 004737 027702 DUADR: JSR PC, TSTGO : PRINT TITLE. 
3884 035710 1$: BGNSEG 2 RRR REE EKER KEKE KKK KKK BEGIN SEGMENT. 
3885 035712 INI TDP 
035712 004737 025402 J PC DPINIT ; GO DO SOFT INIT, CHECK THE STATE. 
3886 035716 012703 177760 MOV #177760,R3 
3887 035722 010377 145106 MOV R3,aDSR : WRITE DSR. 
3888 035726 012701 000000 MOV #0,R1 
035732 017702 145074 MOV aDPC ,R2 : READ DPC INTO R2. 
3890 035736 IFERROR DSDPE ,DUADRE 
035736 020102 CMP R1,R2 3 OK? 
035740 001410 BEQ 64 : YES. 
035742 HRDERR DSDPE,DUADRE, ; NO. 
035762 64$: 
3891 035762 017702 145050 MOV @DXR,R2 ; READ DXR INTO R2. 
3892 035766 IFERROR DSDXE, DUADRE 
035766 020102 CMP R1,R2 3 OK? 
035770 001410 BEQ 65 : YES. 
03977¢ wa HRDERR DSDXE,DUADRE, =; NO. 


0360 
3893 036012 017702 145022 ; READ DYR INTO R2. 
3894 0360 


MOV aDYR,R2 
IFERROR DSDYE,DUADRE 
CMP R1,R2 


3; OK? 
BEQ 66$ : YES. 
036022 HRDERR DSDYE,DUADRE, ; NO. 
036042 66$: 
3895 036042 ENDSEG 2 SRK K KKK KKK EKER KKK KKK KKK KKK END SEGMENT. 
3896 036044 BGNSEG 5 SRKKRK KK KKK KEKE KKK KKK KKK BEGIN SEGMENT. 
_ pscone 004737 025402 1 Nyaa PC,DPINIT GO DO SOFT INIT, CHECK THE STATE 
3898 b3c089 2703 177760 MOV #177760,R3 
3899 036056 WIDSRA R3,DSR 
036056 012700 000010 MOV #SETDSR.RO ; WRITE R3 INTO DSR . 
036062 p00 BIS R3,RO 
036064 0077 144744 MOV RO, aDSR 
3900 036070 2701 000001 MOV #1,R1 
_ erty 2777 000001 144732 NO cS Re. aDSR READ PCS INTO R2 
036102 7702 144726 MO aDSR,R2 


V 
IFERROR DSPCE,DUADRE 


nN ——— ete = 


—-S 
os 
-o 


3 OK? 
BEQ 67 3 VES. 
HRDERR DSPCE,DUADRE, ; NO. 


SS oo oCoCocOo oO 
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wee TEST 


oO 
a 
Ot ek aed ad od ad 


NUMIUIVIVI SE 


Ww UW 

3 83 

uw Ww 
jololololeololola) 
iW 

oa 


RRRAROO 


0361 
3906 03617 
3907 036200 

0362 


Ssx 


2 
3908 036212 
036212 
036214 
036216 
036236 
3909 036236 
3910 036242 
036242 
036250 
3911 036254 
3912 036260 
036260 
036262 
036264 
3913 036304 
036304 
036312 
3914 036316 
3915 036322 
036322 
036324 
036326 
036346 
3916 036346 
036346 


036354 
3917 036360 
3918 036364 

364 


Si 
3s 


SERRE SERFS FEES 


Ww — tt 
NSSSNoasoo 


3922 


REGISTERS UNIQUE ADDRESS 


67$: 
012701 100000 MOV #100000,R1 
RDDSRA FLG, 
012777 000002 144670 MOV WSELFLG,@DSR =; READ FLG INTO R2. 
017702 144664 MOV aDsR 
IFERROR DSFLE,DUADRE 
020102 CMP R1,Re : OK? 
001410 BEQ 68 : YES. 
ae HRDERR DSFLE,DUADRE, : NO. 
012701 000003 MOV #3,R1 
RDDSRA CSR,R2 
012777 000003 144626 MOV MSELCSR,@DSR =; _READ CSR INTO R2. 
017702 144622 MOV @DSR,R 
IFERROR DSCSE,DUADRE 
020102 CMP R1,R2 3 OK? 
001410 BEQ 69 > YES. 
a HRDERR DSCSE,DUADRE, =; NO. 
012701 000000 MOV #0,R1 
RDDSRA MRR,R2 
012777 000004 144564 MOV WSELMRR,@DSR =; READ MRR INTO R2 . 
017702 144560 MOV 
042702 170060 BIC #170000,R2 : MASK OUT MPM. 
IFERROR DSMRE , DUADRE 
020102 CMP R1,R2 > OK? 
001410 BEQ 70 : YES. 
ia HRDERR DSMRE,DUADRE, : NO. 
RDDSRA MPM,R2 
012777 000004 144522 MOV #SELMPM,aDSR = ;::- READ MPM INTO R2 . 
017702 144516 MOV apsk R2 
042702 007777 BIC #7777 ,R2 : MASK OUT MRR. 
IFERROR DSMPE , DUADRE 
020102 CMP R1,R2 3 OK? 
001410 BEQ 71 : YES. 
sn HRDERR DSMPE,DUADRE, =: NO. 
RDDSRA XRR,R2 
012777 000006 144460 MOV WSELXRR,@DSR =; -READ XRR INTO R2 . 
017702 144454 
042702 170000 BIC #170000 ,R2 : MASK OUT XPM. 
IFERROR DSXRE . DUADRE 
020102 CMP R1,R : OK? 
001410 BEQ 72 : YES. 
a HRDERR DSXRE,DUADRE, ; NO. 
RDDSRA XPM,R2 
012777 000006 144416 MOV #SELXPM,@DSR = ;_- READ XPM INTO R2 . 
017702 14441 V R2 
042702 00777 BIC #7777 ,R2 z MASK OUT XRR. 
IFERROR DSXPE . DUADRE 
020102 CMP R1_R > OK? 
001410 BEQ 73 : YES. 
-_ HRDERR DSXPE,DUADRE, ; NO. 
ENDSEG B RRKK KKK KKK KKK KKK KKK KKK <<< END SEGMENT. 


SEQ 0095 


i 
SS 
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eee TEST 4 REGISTERS UNIQUE ADDRESS SEQ 0096 
923 036454 BGNSEG £ RRR KERR EEE ERK K KKK KKK BEGIN SEGMENT. 
924 036456 INITDP 

036456 004737 025402 JSR PC DPINIT ; GO DO SOFT INIT, CHECK THE STATE. 
3925 036462 012703 177760 MOV #177760,R 
6 036466 WIDSRA R 
036466 012700 000013 MOV a ae : WRITE R3 INTO CSR. 
036472 050300 BIS R3,RO 
036474 010077 144334 MOV RO, aDSR 
3927 036500 012701 100000 MOV #160000,R1 
3928 036504 RDDSRA ¥ 
036504 012777 000000 144322 MOV WSELDSR,@DSR =; READ DSR INTO R2 . 
036512 017702 144316 MOV ; 
3929 036516 IFERROR CSDSE,DUADRE 
036516 020102 CMP R1,R2 OK? 
036520 001410 BEQ 74 YES. 
036522 HRDERR CSDSE,DUADRE, : NO. 
036542 74$: 
3930 036542 012701 000001 MOV #1,R1 
3931 036546 RDDSRA PCS,R2 
036546 012777 000001 144260 MOV WSELPCS,aDSR ; READ PCS INTO R2 . 
036554 017702 144254 MOV aDSR,R 
3932 036560 IFERROR csPce, DUADRE 
036560 020102 CMP R1,R2 : OK? 
036562 001410 BEQ aoe : YES. 
036564 HRDERR CSPCE,DUADRE, : NO. 
036604 75$: 
3933 036604 012701 100000 MOV #100000, R1 
3934 036610 RDDSRA FLG 
36610 012777 000002 144216 MOV WSELFLG,aDsh ; READ FLG INTO R2 . 
036616 017702 144212 MOV a 
3935 036622 IFERROR OSPLE DUADRE 
036622 020102 CMP R1,R2 3 OK? 
036624 001410 BEQ 76$ : YES. 
036626 a HRDERR CSFLE,DUADRE, ; NO. 
3936 036646 012701 000000 MOV #0,R1 
3937 036652 RDDSRA MRR,R2 
036652 012777 000004 144154 MOV WSELMRR,@DSR = ;:- READ MRR INTO R2 . 
036660 017702 144150 MOV aDsR 
3938 036664 042702 170000 BIC #170000,R2 : MASK OUT MPM, 
3939 036670 IFERROR CSMRE ,DUADRE 
036670 020102 CMP R1,Re : OK? 
036672 001410 BEQ 77$ : YES. 
036674 HRDERR CSMRE,DUADRE, =: NO. 
036714 77$: 
3940 036714 RDDSRA MPM,R2 
036714 012777 000004 144112 MOV #SELMPM,@DSR ss: READ MPM INTO R2 . 
036 017702 14410 MOV apsh R2 
3941 036726 042702 00777 BIC #777? ,R2 : MASK OUT MRR. 
3942 036732 IFERROR CSMPE ,DUADRE 
036732 020102 CMP R1,R2 3 OK? 
reer sali BADER 4 DUADRE, 5° 
036756 78$: 
3943 036756 RDDSRA XRR,R2 
036756 012777 000006 144050 MOV WSELXRR,@DSR =; _ READ XRR INTO R2 . 
017702 144044 MOV aDSR,R2 
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wee TEST 4 


3944 036770 
3945 036774 
936774 
036776 
37 
037020 
3946 037020 
037020 


037026 
3947 037032 
3948 Serene 


03 
3949 037062 
3950 037064 
3951 037066 
037066 
3952 037072 
3953 037076 
037076 
037102 
037104 
3954 037110 
3955 037114 
037114 


037122 
3956 037126 
037126 
037152 
3957 037152 
3958 037156 
037156 


037164 
3959 037170 
037170 


REGISTERS UNIQUE ADDRESS 


042702 


012701 


012777 
017702 


020102 
001410 
012701 


012777 
017702 


020102 
001410 
012701 


012777 
017702 


020102 


170000 


000006 
144002 
007777 


025402 
007777 


000014 


143724 
100000 


000000 
143706 


000001 


000001 
143644 


100000 


000002 
143602 


000003 


000003 
143540 


144006 


143712 


143650 


143606 


143544 


79$: 


80$: 


81$: 


82$: 


833: 


BIC #170000 ,R2 
IFERROR CSXRE ,DUADRE 
CMP R1,Ro. 
BEQ 
HRDERR 
RDDSRA 
MOV 
MOV 
BIC a P 
IFERROR CSXPE ,DUADRE 
CMP R1,R2 


XPM,R2 
#SELXPM DSR 


BEQ 
HRDERR 
ENDSEG 
JSR PC DPINIT 
#7777,R 
R ma 
#SETMRR,RO 
RS. RO. 
Rr Oob0G. R1 
#SELDSR, aDsR 
MOV DSR,R 
IFERROR MRDSE, DUADRE 
CMP R1,R 


#1,R1 

PCS,R2 
#SELPCS,,aDSR 
MOV 

IFERROR MRPCE , DUADRE 
CMP R1,R2 


MOV 
RDDSRA 
MOV 


BEQ 
HRDERR 
#100000,R1 
#SELFLG,a@DSR 
MOV aDSR,R 
IFERROR MRFLE,DUADRE 
CMP R1,R2 


mn 
ee 
a 


MOV 
RDDSRA 
MOV 


BEQ 
HRDERR 
#3,R1 

CSR,R2 
#SELCSR.@DSR 
MOV R 

IFERROR MRCSE .DUADRE 
CMP R1,R 


MOV 
RDDSRA 
MOV 


79 
CSXRE ,DUADRE, 


80 
CSXPE ,DUADRE, 


5B SRK E EER R KKK KKK KKK KKK END SEGMENT. 
3B RRR KK RRR R KEKE KKK KK KK <<< << BEGIN SEGMENT. 


; GO DO SOFT INIT, CHECK THE STATE. 


81 
MRDSE ,DUADRE , 


82 
MRPCE ,DUADRE , 


8 
MRFLE ,DUADRE , 


MASK OUT XPM. 


; READ XPM INTO R2 . 


3 MASK OUT XRR. 


READ DSR INTO R2 . 


READ PCS INTO R2 . 


OK? 
YES. 


READ FLG INTO R2 . 


OK? 
YES. 
NO. 


READ CSR INTO R2 . 


OK? 


; WRITE R3 INTO MRR . 


SEQ 0097 


H_ 8 
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eee TEST 4 REGISTERS UNIQUE ADDRESS SEQ 0098 
037276 001410 BEQ 84$ : YES. 
037300 HRDERR MRCSE,DUADRE, : NO. 
037320 84$: 
3966 037320 012701 000000 MOV #0,R1 
3967 037324 RDDSRA k 
037324 012777 000004 143502 MOV #SELMPM,aDSR = ;:- READ MPM INTO R2 . 
037332 017702 143476 aD 
3968 037336 042702 007777 BIC #7777 ,R2 z MASK OUT MRR. 
3969 037342 IFERROR MRMPE , DUADRE 
037342 020102 CMP R1,R2 : OK? 
037344 00141 BEQ RS > YES. 
037346 HRDERR MRMPE,DUADRE, =: NO. 
037366 85$: 
3970 037366 RDDSRA XRR,R2 
037366 012777 000006 143440 MOV WSELXRR,@DSR = ;_- READ XRR INTO R2 . 
037374 017702 143434 aDSR,R2 
3971 037400 042702 170000 BIC #170000 ,R2 : MASK OUT XPM. 
3972 037404 IFERROR MRXRE ,DUADRE 
037404 020102 CMP R1,R2 3 OK? 
037406 00141 BEQ 86 : YES. 
037410 HRDERR MRXRE,DUADRE, =; NO. 
037430 86$: 
3973 037430 RDDSRA XPM,R2 
037430 012777 000066 143376 MOV WSELXPM,@DSR —s«;::~ READ XPM INTO R2 . 
037436 017702 143372 MOV 
3974 037442 042702 007777 BIC #7777 ,R2 : MASK OUT XRR. 
3975 037446 IFERROR MRXPE . DUADRE 
037446 020102 CMP R1,R2 : OK? 
037450 001410 BEQ 87 : YES. 
037452 HRDERR MRXPE,DUADRE, : NO. 
037472 87$: 
3976 037472 ENDSEG KERR KKK KKK KEKE K KKK KKK KKK END SEGMENT. 
3977 037474 BGNSEG 3 KKK KKK KKK EKER KKK KKK KKK BEGIN SEGMENT. 
sie oer toe 004737 025402 aes PC, DPINIT GO DO SOFT INIT, CHECK THE STATE 
3979 037502 012703 170000 MOV #170000,R3 
3980 037506 WIDSRA R3,MPM 
037506 012700 000015 MOV #SETMPM,RO : WRITE R3 INTO MPM . 
037512 050300 BIS R3, 
037514 010077 143314 MOV RO. aDSR 
3981 037520 012701 100000 MOV #100000,R1 
othe OaFe5¢ 012777 000000 143302 oe #SELDSR,@DSR READ DSR INTO R2 
3983 pas eee rw Fe TFERROR APD SE DUADRE 
037536 020102 3 OK? 
037540 001410 BEQ 88 : YES. 
037365 i HRDERR MPDSE,DUADRE, =; NO. 
3984 037562 012701 000001 MOV #1,R1 
ss $3708 012777 000001 143240 ore eset Res aDsR READ PCS INTO R2 
037574 017702 143234 MOV R 
3986 037600 IFERROR MPPCE ,DUADRE 
037600 020102 CMP R1.R > OK? 
037602 001410 BEQ 89 : YES. 
037604 HRDERR MPPCE,DUADRE, =; NO. 


—_———— See st= 
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eee TEST REGISTERS UNIQUE ADDRESS SEQ 0099 


03 
3990 037666 
3991 037672 
037672 
037700 
3992 037704 
037704 
037706 
037710 
037730 
3993 037730 
3994 037734 
037742 
3995 037746 
3996 pide 





012701 


012777 
017702 


020102 
001410 
012701 


012777 
017702 


020102 
001410 


012701 


012777 
017702 
042702 


020102 
001410 


100000 


000002 
143172 


000003 


000003 
143130 


000000 


000004 
143066 
170060 


000006 
143024 
170000 


02540. 
00777 


000016 


142704 
100000 


143176 


143134 


143072 


143030 


142766 


89$: 


90$: 


91$: 


92$: 


93$: 


94$: 


MOV #100000,R1 

RDDSRA FLG,R2 

MOV WSELFLG,@DSR ; READ FLG INTO R2. 
MOV aps 

IFERROR MPFLE,DUADRE 

CMP R1 : Ok? 

BEQ 9 : YES. 

HRDERR MPFLE,DUADRE, : NO. 


MOV #3,R1 
RDDSRA CSR,R2 
MOV #SELCSR,@DSR ; READ CSR INTO R2 . 


MOV P 
IFERROR MPCSE ,DUADRE 
CMP R1,R2 


: 0K? 
BEQ 91 > YES. 
HRDERR MPCSE,DUADRE, : NO. 
MOV #0,R1 
RDDSRA MRR,R2 
MOV spe ,@DSR—s;_- READ MRR INTO R2 . 
BIC 170000, R2 : MASK OUT MPM. 
IFERROR MARE, DUADRE 
CMP 3; OK? 
BEQ 5 : YES. 
HRDERR MPMRE,DUADRE, : NO. 
RDDSRA XRR,R2 
MOV ASELXRR,@DSR —s«;::- READ XRR INTO R2 . 


3 MASK OUT XPM. 


BIC #170000,R2 
IFERROR MPXRE , DUADRE 
CMP R1,R2 > OK? 


BEQ 93 ¢ Yes. 

HRDERR MPXRE,DUADRE, : NO. 

RDDSRA XPM,R2 

MOV #SELXPM,aDSR ; READ XPM INTO R2 . 
MOV RR 


3 MASK OUT XRR. 


BIC #7777 ,R2 
IFERROR MPXPE ; DUADRE 
CMP R1,R2 3 OK? 


BEQ 94 3; YES. 
HRDERR MPXPE,DUADRE, =; NO. 
ENDSEG 2 RRR K KKK KEK K KKK KKK KKK <<< END SEGMENT. 


BGNSEG 5 KKKKK KKK KEKE EKER BEGIN SEGMENT. 


INI TDP 
JSR PC BPINIT ; GO DO SOFT INIT, CHECK THE STATE. 
MOV W777 2R 

WTDSRA an 

MOV Been RO : WRITE R3 INTO XRR . 

BIS R3,RO 

MOV RO. aDSR 

MOV #160000,R1 


8 
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eee TEST 4 


= 

3 

222 

coco 
ANSSSEME 


040276 
4017 040276 
4018 oebens 


040310 
4019 040314 
040314 


040364 


So 
SEE 


LS 
So 
NM 
Oo 
RRRRRRRRRKRREEK 
RRRRRRRRRREKK 
SRRRSRKKK 


MMi 
Aooo 


REGISTERS UNIQUE ADDRESS 


012777 
017702 
0 


012701 


012777 
017702 


020102 
001410 
012701 


012777 
017702 


020102 
001410 
012701 


012777 
017702 


020102 
001410 
012701 
012777 
017702 
042702 


020102 
001410 


12777 
17 


000000 
142666 


000001 


000001 
142624 


100000 


000002 
142562 


000003 


000003 
142520 


000000 
000004 
142456 
170000 


142672 


142630 


142566 


142524 


142462 


142420 


142356 


RDDSRA DSR,R2 
MOV 


MOV 
IFERROR 
CMP 

BEQ 
HRDERR 
MOV 
RDDSRA 
MOV 
IFERROR 
CMP 
BEQ 
HRDERR 
MOV 
RDDSRA 
MOV 
MOV 
IFERROR 
CMP 


BEQ 
HRDERR 


MOV 
IFERROR 
CMP 
BEQ 
HRDERR 
MOV 
RDDSRA 
MOV 

BIC 
IFERROR 
CMP 
BEQ 
HRDERR 
RDDSRA 
MOV 

BIC 
IFERROR 
CMP 
BEQ 
HRDERR 
RDDSRA 
MOV 


95$: 
MOV 
96$: 
97$: 
MOV 
MOV 
98$: 
99$: 
100$: 
MOV 


#SELDSR,@DSR 

RR 
XRDSE , DUADRE 
R1,R2 


95 

XRDSE ,DUADRE, 
#1,R1 

PCS,R2 
#SELPCS,aDSR 
aDSR,R 
XRPCE , DUADRE 
R1,R2 

% 
XRPCE , DUADRE, 
#100000,R1 
#SELFLG,@DSR 
XRFLE , DUADRE 
R1,R2 


nm 
(>) 


97 
XRFLE ,DUADRE, 
#3,R1 

CSR,R2 
#SELCSR,@DSR 
aps 
XRCSE , DUADRE 
RI R2 

XRCSE ,DUADRE, 
#0,R1 

MRR ,R2 
#SELMRR,a@DSR 
aDSR,R 
#170000 ,R2 
XRMRE , DUADRE 
R1,R2 


XRMRE , DUADRE , 
#7777 ,R2 
XRMPE , DUADRE 
R1.R2 

100$ 
XRMPE , DUADRE , 


XPM,R2 
#SELXPM,@DSR 
aDSR,R2 


DSR INTO R2 . 


PCS INTO R2 . 


FLG INTO R2 . 


CSR INTO R2 . 


MRR INTO R2 . 


OUT MPM. 


MPM INTO R2 . 


OUT MPM. 


XPM INTO R2 . 


SEQ 0100 





net 41 3 =~ GRAPHIC SYS. DIAG MACRO M1113 28-OCT-81 11:23 PAGE 675 


sexe TEST 


4028 040462 
4029 040466 


Rt td a te YY 
ROVAARUUNOSR 


4035 040540 
4036 040544 


0544 

040552 

4037 040556 
040556 


720 
4046 Be orSe 


sar 


4047 620780 
4048 040754 
040754 
040762 
4049 040766 
4050 020778 


REGISTERS UNIQUE ADDRESS 


042702 007777 


020102 
001410 


025402 
170000 


000017 


142274 
100000 


000000 
142256 


077 


oo oo OOOO ss 


on —— —24Yi — 
-Oo NM NMCON NWS 


000001 


000001 
142214 


012777 
017702 


020102 
001410 
012701 


012777 
017702 
020102 
001410 


100000 


000002 
142152 


012701 


012777 
017702 


020102 
001410 


000003 


000003 
142110 


012701 


012777 
017702 142046 
042702 170000 


142262 


142220 


142156 


142114 


142052 


101$: 


102$: 


103$: 


104$: 


105$: 


BIC 
IFERROR 
CMP 


MOV 
IFERROR 
CMP 
BEQ 
HRDERR 
MOV 
RDDSRA 
MOV 
MOV 
IFERROR 
CMP 
BEQ 
HRDERR 
MOV 
RDDSRA 
MOV 
MOV 
IFERROR 
CMP 
BEQ 
HRDERR 
MOV 
RDDSRA 
MOV 
MOV 
IFERROR 
CMP 
BEQ 
HRDERR 
MOV 
RDDSRA 
MOV 
MOV 

BIC 
IFERROR 


#7777 ,R2 
pt penetatiee 
R1,R 


101$ 
XRXPE , DUADRE , 


; MASK OUT XRR. 


SEQ 0101 


; OK? 


YES ” 


5 KKK KKK E EEK K KKK KKK END SEGMENT. 
2 KRKKKE KKK R EEE K KK KKK KKK BEGIN SEGMENT. 


PC,DPINIT 
#170000,R3 


R3,X 
ASETHPR,RO 


RO. aDSR 
#160000,R1 
DSR,R2 
#SELDSR,aDSR 
XPDSE , DUADRE 
R1,R2 

102$ 
XPDSE , DUADRE, 
#1,R1 

PCS,R2 
#SELPCS,aDSR 
apsR, 
XPPCE , DUADRE 
R1,R2 

103$ 
XPPCE , DUADRE, 
#100000,R1 
FLG, 
#SELFLG,@DSR 
XPFLE ,DUADRE 
R1,R2 


104$ 

XPFLE ,DUADRE, 
#3,R1 

CSR,R2 
#SELCSR,@DSR 


XPCSE .DUADRE 


1 

XPCSE ,DUADRE, 

#0,R1 

MRR ,R2 

#SELMRR,@DSR 
R.R 
#170000,R2 

SPARE DUADRE 


GO DO SOFT INIT, CHECK THE STATE. 


| 
| 
WRITE R3 INTO XPM . | 
READ DSR INTO R2 . 


0K? 
VES. 

0. 
READ PCS INTO R2 . | 
Ok? 
YES. 

NO. 

READ FLG INTO R2 . 


YES. 
NO. 


| 
| 
| 
0K? 
| 
READ CSR INTO R2 . | 
OK? 
YES. 
NO. 


READ MRR INTO R2 . | 
MASK OUT MPM. 
| 
| 
| 


——ee 
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REGISTERS UNIQUE ADDRESS 


eee TEST 4 


oO 
IN 
o 


SESSESE PETES 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
4054 041 
: 
4055 041072 
4056 041076 
1076 
1100 
1102 
1122 
4057 041122 
4058 041124 
1124 
1130 
1132 
1134 
041140 
4059 041144 
4060 041150 


020102 

1410 
pierre 000004 
017702 142004 
042702 007777 
020102 
001410 
012777 900006 
017702 141742 
042702 170000 
020102 
001410 
004737 027646 
103401 
000402 


000137 035710 
004737 030072 


142010 


141746 


106$: 


107$: 


1088: 


109$: 
1108: 


CMP 
BEQ 
HRDERR 
RDDSRA 
MOV 
BIC 
IFERROR 
CMP 
BEQ 
HRDERR 
RDDSRA 
MOV 
MOV 
BIC 
IFERROR 
CMP 
BEQ 
HRDERR 
ENDSEG 
COMEND 
JSR 
BCS 

BR 

JMP 
JSR 


EXIT 
END.TEST 


R1,R2 ; OK? 

106$ s Ves. 

XPMRE ,DUADRE, =; NO. 

MPM ,R2 

#SELMPM, adsrR 3; READ 
@DSR,R2 


os 77 ,R2 : MASK 
XPMPE , DUADRE 
R1,Ro- 3; OK? 


107$ ; YES. 
XPMPE ,DUADRE, =; NO. 
XRR,R2 

#SELXRR,@DSR 3 READ 
aDSR,R2 

#170000 ,R2 ; MASK 
XPXRE , DUADRE 

R1,R2 3; OK? 


108$ s Yes. 
XPXRE ,DUADRE, ; NO. 


MPM INTO R2 . 


XRR INTO R2 . 


3 KKKK KEK EKER KKK KKK KKK KKK END SEGMENT. 


1$ 
PC, LOOP 
109$ 
110$ 

i$ 


PC, TSTEND 
TST 


; REPEAT ‘TIL LOOPER EXPIRES. 


: PRINT ERROR SUMMARY, 
; EXIT THIS TEST pad Mn As 


ata aetna rat aie cia alent nae 


END TEST 4 


SRRERRERAREAEAAAARAAARAREAEAERAARARAAARARAARAREAARAERARAAAAERERERAAAEREEEEEEE 


SEQ 0102 





m 8 
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eee TEST 5 INCREMENTING REGISTERS SEQ 0103 


4062 


SPAR REAREAAAAAAAEAAAAAAAEREEAAAAAAARERAAAAAAARERAAAAAAAAAAERAAAAAAARAAARAEE 


of 
s@ BEGIN TEST 5 =  INCREMENTING REGISTERS 
** 


SEERA AAAAAARERARARAAAEEEEAREAERAEAAARARARAARAARAARAAEREARAAAAAARAEARARAAEEAEE 


; (iTERATION COUNT = 10.) 


4063 ; 
4064 ; THE READ/WRITE CAPABILITIES OF THE REGISTERS WILL BE CHECKED 
4065 : BY ““INCREMENTING'’ EACH REGISTER FROM ITS LOWEST POSSIBLE 
4066 ; VALUE, MINUS ONE, TO ITS HIGHEST POSSIBLE VALUE, PLUS ONE, 
4067 ; IE. 1 T0 177777 To 0. 
ris 4 ; RI=EXPECTED, R2=RECEIVED, RO,R3=WORK REGS. 
4070 041232 INCREG: COMBEG 
041232 004737 027702 JSR PC.TSTGO e Ta rase 
041236 004737 0626074 JSR PC ,DPRESET : DO SOFT INIT. 
res 041242 012701 000023 1$: MOV #SELCSR*+20,R1 3; INCREMENT CSR. 
4073 041246 BGNSEG fb RRR KEKE EERE EEK KEKE KKK <<< BEGIN SEGMENT. 
4074 041250 2$: WIDSRA R1,CSR 
041250 012700 000013 MOV #SETCSR,RO ; WRITE R1 INTO CSR . 
041254 050100 BIS R1, 
041256 010077 141552 MOV RO. @DSR 
4075 041262 RDDSRA CSR,R2 
041262 012777 000003 141544 MOV #SELCSR,aDSR ; READ CSR INTO R2 . 
041270 017702 141540 MOV aDSR,R 
4076 041274 IFERROR ICSRE ,EXPREC 
041274 020102 CMP R1,R2 3; OK? 
041276 001410 BEQ 64$ : YES. 
041 , HRDERR ICSRE,EXPREC, ; NO. 
041320 648: 
4077 041320 CKLOOP ; LOOP IF ERROR. 
4078 041322 062701 000020 ADD #20,R1 3: INCREMENT. 
4079 041326 020127 000003 CMP R1,4SELCSR ; DONE? 
4080 041332 001346 BNE 2s 3 NO. 
riot 041334 ENDSEG 2 RRR R RRR KERR KKK KKK KKK KKK <<< END SEGMENT. 
4083 041336 012701 000001 MOV #1,R1 ; INCREMENT MRR. 
4084 1342 012703 000020 MOV #20,R3 
4086 04134 BGNSEG b RRR KEKE EERE KKK KKK KKK BEGIN SEGMENT. 
4087 04135 3$: WTDSRA R3,MRR 
041350 012700 000014 MOV #SETMRR RO : WRITE R3 INTO MRR . 
041354 050300 BIS ‘ , 
041356 010077 141452 MOV RO, @DSR 
4088 06 1365 RDDSRA MRR,R 
04136 oer 000004 141424 MOV #SELMRR,@DSR ; READ MRR INTO R2 . 
041370 017702 141440 MOV ad R 
4089 041374 IF ERROR IMRRE , EXPREC 
041374 020102 CMP R1,R 3; OK? 
041376 001410 BEQ 65 ; YES. 
041400 HRDERR IMRRE,EXPREC, : NO. 
041420 65$: 
4090 041420 CKLOOP : LOOP IF ERROR. 





—_— 


oe 


4091 0c1496 


3 


4097 
4098 041446 


099 
4100 041450 
4101 
4102 041454 
4103 041456 
041456 
041462 
041464 
4104 041470 
4105 041472 
4106 041476 
041476 
041504 
4107 041510 
041510 
041512 
041514 
041534 
4108 041534 
4109 041536 
4110 041542 
4111 041544 
4112 041550 
041550 
041556 
4113 041562 
041562 
041564 
041566 
041606 
4114 041606 
4115 041610 
4116 041614 
4117 041620 
4118 041622 
4119 
4120 041624 
4121 041630 
4122 
4123 041634 
4124 041636 
041636 
041642 
041644 
4125 041650 
041650 
041656 
4126 041662 
041662 





INCREMENTING REGISTERS 


eosss 
on 
Ww 
S 


oOo oo 
oN NN HN 


gs ec sses 8 
SY 3538 


P ey 
-o 


000020 
000001 
000001 


170000 


000020 


000015 
141344 
007777 


000004 
141324 


001000 
100000 


000005 
141252 


000020 
000020 


000001 
000020 


000016 
141164 


000006 
141152 


141330 


141256 


141156 


4$: 


5$: 


66$: 


50$: 


67$: 


6$: 


n 8 
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| oa TEST 5 


#20,R3 3; INCREMENT. 
#1,R1 

R1,41 3; DONE? 

4$ ; YES. 
#170000,R1 3 NO. 

3$ ; : 


F RRK KERR EERE EEK K KKK KKK END SEGMENT. 


#20,R3  g INCREMENT MPM. 

a3 5S RRR EEE EKER K KKK KKK KKK BEGIN SEGMENT. 
#SETMPR.RO : WRITE R3 INTO MPM . 

RO. aDSR 

R3_R1 :GET WRITTEN DATA 

errr” R1 [LEAVE MASK BITS IN R1 

#SELMPR.ADSR : READ MPM INTO R2 . 

IMPME , EXPREC 

R1,R2 3 


OK? 
66 2 ves. 
IMPME,EXPREC, ; NO. 


R1 sASSUME WRITE-PROTECT BIT IS 0 
#8179.R3 ‘DID WE WRITE IT TO 1? 
#Q1T15 .R1 ‘SET BIT 15 FOR HBASE COMPARE IF YES. 
#SELHBA, DSR ; READ HBA INTO R2 . 
IMPWPE , EXPREC 
R1,R2 3; OK? 
67$ : YES. 
IMPWPE,EXPREC, : NO. 

: LOOP IF ERROR. 
#20, ; INCREMENT. 
3.420 : DONE? 

: KKK KK KK KKK KEKE KEKE KEKE KKK KKK END SEGMENT. 
#1.R1 : INCREMENT XRR. 
#20,R3 


3b SKRKK KEK KEKE KEKE KKK KKK KKK BEGIN SEGMENT. 


R3,XRR 
#SETARR,RO ; WRITE R3 INTO XRR . 
RO, aDSR 
XRR,R2 
MSELXRR,@DSR =; - READ XRR INTO R2 . 


IXRRE , EXPREC 
R1 Re 


OK? 


SEQ 0104 


VSV11/VS11 == GRAPH 


TEST 


med od es 8 at 


NNN SS 


RRROROSS 


WO Coon 


RRRRERRRLK KR KR KRLRLREKKR u 


eS ed a td td st on + Lt 


FP oP oF ot ot oF of oF ot of ot of ot 
— 
NON 
oF 


ab nb nd ad od oe nl ok a a eh en ed 
SWWAWNAIAWNInonoru 
SOBVRAE 


4144 041776 


044 
4150 042050 
2050 


042052 
042054 


2 
MM 
= 
&* 


RRRARASL 
— 2 —2 —) —) ds — 
MMMM 
NOUAWN = 

RRRR RRRRX 


04 <5 
4158 042132 






gcosss 


oo oo 


000020 
000001 
000001 


170000 


000020 


000017 
141056 
007777 


000006 
141036 


001000 
040000 


000005 
140764 


000020 
000020 


027646 


041242 
030072 


141042 


140770 


68$: 


7$: 


69$: 


80$: 


70$: 


71$: 
72$: 


IC SYS. DIAG MACRO M1113 28-OCT-81 
INCREMENTING REGISTERS 


BEQ 
HRDERR 
CKLOOP 


ENDSEG 
MOV 


BGNSEG 
WIDSRA 
MOV 


BIS 
MOV 
MOV 

BIC 
RDDSRA 
MOV 
MOV 
IFERROR 
CMP 


BEQ 
HRDERR 


MOV 
IFERROR 
CMP 
BEQ 
HRDERR 
CKLOOP 
ADD 
CMP 
BNE 
ENDSEG 
COMEND 
JSR 
BCS 

BR 

JMP 


JSR 
EXIT 


11:23 PAGE 
68$ 3s ves. 
IXRRE,EXPREC, =; NO. 
; LOOP IF ERROR. 
a0. 3; INCREMENT. 
4 yt 3; DONE? 
g ves. 
#170000,R1 3 NO. 
6$ é 
3B SRRR RRR EERE EEK ERK KKK END SEGMENT. 
#20,R3 3; INCREMENT XPM, 
aS. n 5 KERR RRR EK EERE EEE K KKK BEGIN SEGMENT. 
#SETXPM,RO ; WRITE R3 INTO XPM . 
RO. aDSR 
R1 ;GET WRITTEN DATA 
#7777 RI ZLEAVE MASK BITS IN R1 
#SELXPM, ADSR : READ XPM INTO R2 . 
IXPME , © XPREC 
R1,R2 3 OK? 
69 3 YES. 
IXPME,EXPREC,  ; NO. 
R1 3; ASSUME rey nd BIT IS 0 
eSLT9 RS :DID - TE IT TO 1? 
aa :SET BIT 14 FOR HBASE COMPARE IF YES. 
WSELHBA,@DSR —s;_- READ HBA INTO R2 . 
IXPWPE , EXPREC 
R1,R2 3 OK? 
70 ; YES. 
IXPWPE,EXPREC, ; NO. 
3; LOOP IF ERROR. 
. 0,R3 : INCREMENT. 
ae #20 3 sl 
b KKK KEE KEKE KKK KKKKKKK END SEGMENT. 
1$ 
pf ,LooP ; REPEAT ‘TIL LOOPER EXPIRES. 
72$ 
1$ 
PC, TSTEND ; PRINT ERROR SUMMARY, IF REQ‘'D. 
TST : EXIT THIS TEST >>>>5>>>>>>>>>5>>>>>>>>>> 





S0-2 


SEQ 0105 


9 
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wee TEST 5 INCREMENTING REGISTERS 
4159 
4160 042136 END.TEST 
RARER RAA REE RRERREEEERAEEE EERE REAR ERRRERER AREER AERERRE TERE RE 
ye 
a END TEST 5 


FERRARA ARERR EEEEEERRERERRAEREREREEEEEEEREREERRREEERERREKEEEERREEEE 


SEQ 0106 


0. 9 
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DPU START=STOP SEQ 0107 
4162 
; SRERAEERAEAAAARAEAAEAEERAEAEEEEEREAEAAAERERERARAEARARKAAERERERERERERAEEEKEEEE 
;* 
7* BEGIN TEST 6 -  DPU START=-STOP 
** 
: REAAAAARAARAKRARAEARAREAEAAERARERAAAEAAEREAREEEAAEEAARRERAAKRKERAEAAEEEEEEEEE 
3; (ITERATION COUNT = 20.) 
4163 ; 
4164 3; FIRST INSURE THAT START, RESUME, DNOP, DJMP, AND STOP 
4165 ; ALL FUNCTION CORRECTLY. 
res ; IF NOT, ABORT, NO POINT IN CONTINUING. 
4168 042210 SSTST: COMBEG 
042210 004737 027702 JSR PC,TSTGO 3; TITLE. 
4169 042214 004737 026074 JSR PC, DPRESET ; DO SOFT INIT. 
si 042220 1$: BGNSEG 5 KKK RRR EEE E KKK KKK KK KKK BEGIN SEGMENT. 
4172 042222 012702 042526 MOV ossTe. R2 sSET 1ST EXP'D DPC... 
4173 042226 017703 140602 MOV aDSR_R3 
4174 042232 042703 176000 BIC eit? R3 
4175 042236 052703 172000 BIS #ST -AND DSR. 
4176 042242 012777 042516 140562 MOV #SST1 - adPC ther START, DNOPS, AND STOP. 
4177 042250 004737 027454 JSR PC, ,WAITF SWAIT 1/2 SEC (MORE OR LESS). 
4178 042254 027702 140552 CMP aDPC,R2 3DPC SHOULD POINT TO ‘RT2"'. 
4179 042260 001411 BEQ 3BR IF IT'S RIGHT. 
4180 042262 DFERR SSF,PCSERR sSTART-NOP-STOP FAILS. 
4181 042302 000421 BR Nd ar RESUME TEST. 
4182 042304 012702 042550 2$: MOV #SST3,R2 SET NEXT EXP'D DPC. 
4183 042310 005277 140516 INC aDPC ct RESUME, DNOP'S, AND DJMP. 
4184 042314 004737 027454 JSR PC ,WAITF 
4185 042320 027702 140506 CMP aDPC .R2 NOW ve SHOULD BE AT ‘RT3"'. 
4186 042324 001412 BEQ BR 
4187 042326 DFERR RJF,PCSERR RE SIME NOP=JUMP FAILS. 
4188 042346 004737 026756 3$: JSR PC ,RELEAS SUNHANG IF HUNG 
4189 042352 004737 023422 4$: JSR PC, IIRCHK ‘VERIFY THAT INTERNAL REGS ee STATIC 
rhb 042356 ENDSEG 5 KRKKK KEKE EEK KEKE KKK KKK END SEGMENT 
4192 
4193 ; SO FAR, SO GOOD. NOW LET'S PUT HIM IN A JUMP-SELF 
rh} +: ; LOOP, AND SEE IF WE CAN STOP HIM FROM THE CPU. 
4196 : 
4197 042360 BGNSEG 3 SKKKK KKK KEK KKK KKK KKK KKK KKK BEGIN SEGMENT. 
4198 042362 DPSTART oest 
042362 012777 042526 140442 MOV sore : START THE DPU. 
042370 004737 027454 JSR PC,WAITF : WAIT FOR DISPLAY STOP. 
199 042374 005277 140432 INC aDPC RESUME, XCT DJMP SELF. 
200 042400 004737 027454 JSR PC ,WAITF 
4201 042404 103011 BCC 5$ :BR IF HE'S DOING IT. 
202 042406 HRDERR JSF ; JUMP SELF FAILS. 
4203 pesese 000417 a 
t308 be5a3 ith asta - gip-e6e aDSR XCT “EXTERNAL STOP*’ 
4206 042440 004737 027454 JSR PC, WAITF 






eet 






4207 042444 


~w 
® 
nm 
™ 


EeEee Soe 


Foy of af of at ot ot 
horn 
— ot 


RUDD 

MMNMNNNN— 

CUSWN—OOONOUS 
ALO 


RRLPLLRE 
Varig ara 


2 
2 
2 
2 
2 
2 
2 
2 


sono 


8 042560 
4229 042564 


DPU START-STO 


103410 


004737 
004737 


004737 
103645 
004737 


027646 
030072 


164000 


164000 
042546 
173000 


164000 
042554 
173000 


164000 
164000 
173000 


veya =~ GRAPHIC SYS. p4oe MACRO M1113 28-OCT-81 


6$: 


BCS 
HRDERR 
JSR 


JSR 
ENDSEG 


4 9 
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1$ 
PC,LOOP 






ESF 
PC, IIRCHK 
PC,RELEAS 31 DPU. 
: KKK KEKE EEK KKK KEKE KEKE KKK END SEGMENT. 


3BR_IF _HE Ht 

EXT STOP FAILS. 

MAKE SURE INTERNALS STILL OK. 
IDN'T, GO RELEAS 


; REPEAT ‘TIL LOOPER EXPIRES. 


JSR PC, TSTEND 


EXIT TST 


: DISPLAY FILE FOR THIS TEST. 


§ST1: 
SST2: 


SST3: 


** 
** 


DNOP , DNOP , DNOP 
STOPN 
+ Ser ~DNOP , DNOP 


J 
STOPN, STOPN, STOPN 
TOPN 


Ss 

DNOP , DNOP 
DJMP,.-2 
STOPN,STOPN 
END. TEST 


END TEST 6 


3; PRINT ERROR SUMMARY IF REQ‘'D. 
: EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 


o—_, SKIP OVER THESE... 
AND LAND HERE. 


zJUMP SELF FOR “EXT STOP’. 
NSURANCE . 


SERRA AEEER EEA ERREKE 


SERRE RAAAAEAAREKAEAKAEEEEEEEREEEEEEEEEREEEREREREE 


* 
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DPU OPCODES SEQ 0109 
4231 
}; SREAEAKAAEREAAAERAEAAARRARAEEEAERAARAERERARAEAAERERAARAEKAAAREREEEEKERERKREEEE 
; ** 
3* BEGIN TEST 7 -  DPU OPCODES 
** 
: RERRAAARARAAERAEAARKEAEAAEREEAAERAAAERARARERARAERAEERAARRARERARERRAEEEEAEEEEEREE 
: CITERATION COUNT = 5.) 
4232 : 
4233 ; FIRST, 31 ALL THOSE OPCODES hat: A PIXEL DATA TO THE 
4234 : DPU, OPCODES 100000 THRU 130000 HAR THRU REL POINT). 
4g39 ; USE ALL 10 BITS OF THE PIXEL DATA’ FIELD. 
4237 042632 OPCOD: COMBEG 
042632 004737 027702 JSR PC, TSTGO 3; TITLE. 
042636 004737 026074 JSR PC ,DPRESET : 00 SOFT INIT. 
4238 042642 005037 023054 CLR LOOPFL i CLEAR *LOOP-FLAG’’ FOR C-BASE DATA. 
4239 042646 012737 043412 022300 MOV #20$,EXTA SET ERROR EXTENSION ADDRESS. 
4240 042654 012702 043446 14$: MOV #OPC1+6,R2 SSET EXPECTED 
4241 042660 012737 102000 043440 MOV #CHAR!LO, OPC1 INIT OPCODE = CHAR, LEVEL 0. 
$508 042666 012703 172000 1$: MOV #STOP,R3 [SET EXPECTED DSR. 
rive} 042672 2$: BGNSEG 3 SKKK KKK K KKK EEK K KKK KKK <<< BEGIN SEGMENT. 
4246 042674 012777 043440 140130 MOV #OPC1,aDPC sSTART, XCT OPCODE+DATA. 
4247 042702 004737 027454 JSR PC ,WAITF 
4248 042706 027703 140122 CMP @DSR,R3 + DSR = STOP + DATA ?? 
4249 042712 001410 BEQ $ 
4250 042714 HRDERR PDXI,PCSERR ‘PIXEL DATA XFER WRONG. 
4251 042734 013737 043440 023056 3S: MOV C1,GDDAT [GET OPCODE 
4252 042742 042737 003777 023056 BIC #3777 ,GDDAT ;CLEAR OUT INTENSITY 
4253 042750 004737 022410 JSR ——- PC, FLGCHK :SEE THAT OPCODE IS_IN FLAGS. 
4254 042754 012737 000001 023056 MOV #1, yl 3EXPECT ‘EMPTY S SAME «2s 
4255 042762 004737 022360 JSR PC,PCSCHK AND GO CHECK FOR IT. 
4256 042766 012737 000003 023056 MOV #SELCSR, qoeat TEKPECT CLEAR CSR (EXC. SEL)... 
4257 042774 004737 022440 JSR PC, CSRCHK t..-AND CHECK 
043000 013737 023054 023056 MOV LOOPFL, GDDAT sEXPECT CBASE cient 0 OR DNOP.. 
4259 043006 004737 022624 JSR PC, CBCHK +..-AND CHECK ie 
043012 005037 023056 CLR GDDAT sEXPECT 0 nin REMAINING REGS... 
4261 043016 004737 022466 JSR PC .MACHK :...MAIN MEM MGMT. 
262 043022 004737 022566 JSR PC, XMCHK 32 AUX MER MGMT. 
4263 043026 004737 022526 JSR PC, ,HBCHK 3..eHISTOGRAM BASE. 
$566 043032 ENDSEG 5 KERR RRR KEK ERR KKK KKK KKK END SEGMENT. 
3034 020327 173777 CMP R3,MSTOP'1777 ;ALL DATA BITS DONE ?? 
4267 043040 001404 BEQ 4$ ; 
4268 043042 005203 INC R3 NO BUMP DATA BITS... 
4269 043044 005237 043440 INC OPC1 +... HERE TOO.. 
posh 043050 000710 BR 2s :...AND CONTINUE. 
4272 043052 023727 043440 133777 4$: CMP OPC1,4RPNT! 3777 ; DONE THRU RPNT ??? 
4273 043060 001407 BEQ 
4274 043062 062737 004000 043440 ADD #B1T11,0PC1 =NO, SET NEXT OPCODE... 
4275 043070 042737 001777 043440 BIC #1777,0PC1 +... LEVEL 0... 
4576 043076 000673 BR 1$ 3..eAND CONTINUE. 
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eee TEST 7 DPU OPCODES SEQ 0110 
4278 3; NOW OF THE REMAINING OPCODES (134000 - 176000), EXECUTE ALL 
4279 ; EXCEPT BM0/BM1(134000/136000), DJMP(160000), AND STOP(172 50). 
4280 ; WITH BITS <9:0> OF THE OPCODE = ZERO, AND ye DATA. 
4281 3 M44 “ee (INCLUDING THOSE ONDEF NED SPARE) SHOULB AP PEAR AS 
ose6 3 tine ws A. Mada ON THE DPU AS FAR AS FINAL REGISTER 
tSae H NOTE: THis Fost WILL LEAVE IM CHAN 0 IN A ‘PROTECT’ STATE. 
4286 043100 017704 137732 S$: MOV oee° Re ALL REGISTERS SHOULD REMAIN... 
4287 043104 017705 137730 MOV aDYR . UNCHANGED. 
esos 043110 012737 140000 043440 MOV 3010000, OPC1 > FIRST OPCODE = 1ST SPARE. 
rit 043116 6$: BGNSEG 2 KKK KEKE REE E KKK K KKK KKK << BEGIN SEGMENT. 
4292 043120 012777 043440 137704 MOV #OPC1,aDPC 
4293 043126 004737 027454 JSR PC, ,WAITF 
4294 043132 027702 137674 CMP aDPC .R2 
4295 043136 001003 BNE 7 
296 043140 027703 137670 CMP aDSR,R3 
4297 043144 001411 BEQ $ 
4298 043146 7$: HRDERR OPCF,PCSERR sPC OR SR WRONG AFTER NULL. 
4299 043166 000416 BR 
4300 043170 027704 137642 8$: CMP @DXR,R4 
4301 043174 001003 BNE 
4302 043176 027705 137636 CMP aDYR,RS 
4303 043202 001410 BEQ 11$ 
4304 043204 9$: HRDERR OPCF,XYERR 3™R OR YR WRONG AFTER NULL 
4305 043224 012737 130000 023056 11$: MOV #RPNT ,GDDAT SAY WE SHOULD SEE CRPNT" OP IN FLAGS. 
4306 043232 023727 043440 144000 CMP OPC1,#RNLN 360 TO RUN-LENGTH YET? 
4307 043240 103403 BLO 10$ F 
4308 043242 0127 144000 023056 MOV #RNLN,GDDAT TIF YES, EXPECT TO SEE ie 
4309 043250 004737 022410 10$: JSR PC, FLGCHK = CHECK FLAGS FOR THE GRAPHIC OP. 
4310 043254 012737 000003 023056 MOV #SELCSR,GDDAT ... CHECK OTHER REGS, EXCEPT HBASE & CBASE 
4311 043262 004737 022440 JSR PC, CSRCHK 3-.eCSR 
4312 043266 012737 000001 023056 MOV #1, T 
4313 043274 004737 022360 JSR PC ,PCSCHK 3. ePCSAVE 
4314 043300 005037 023056 CLR GDDAT ; OTHERS S/B 0 
4315 043304 004737 022466 JSR PC ,MACHK 3.2eMAIN MEM MGMT 
4316 043310 004737 022566 JSR PC,.XMCHK 3..AUX MEM MGMT 
eit 4 043314 ENDSEG 5 KKK KKK KEKE KEKE KKK KKK KKK END SEGMENT. 
4319 043316 062737 908008 043440 158: ADD #B81T10,0PC1 :SET NEXT OPCODE. 
4320 043324 023727 043440 160000 CMP OPC1,4DJMP 
4321 043332 001771 BEQ 15$ ; BYPASS DJMP... 
4322 043334 023727 043440 172000 CMP OPC1,#STOP 
4323 043342 001765 BEQ 15$ 3..--AND STOP. 
4324 043344 023727 043440 162000 CMP OPC1,#IMREAD : BYPASS DMA PIXEL READ. 
4325 043352 001761 BEQ 15$ : 
4326 043354 005737 043440 TST OPC1 ; DONE THRU LAST OPCODE ?? 
rt 043360 001256 BNE 6$ sCONTINUE IF NOT. 
4329 043362 013737 043442 023054 12$: MOV OPC1+2,LOOPFL zGET DATA FOR CHAR-BASE 
4330 043370 LOOPTO 13$ REPEAT "TIL LOOPER EXPIRES. (BRANCH OUT OF RANGE) ;a@aal 
043370 004737 027646 JSR PC,LOOP 
043374 103404 BCS 
4331 043376 004737 030072 30$: JSR PC, TSTEND 


4332 043402 EXIT TST : EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 
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eee TEST 7 DPU OPCODES SEQ 0111 
tee 043406 000137 042654 _— JMP 14$ ;USE JMP TO GET BACK FOR LOOP. 
4335 ; ON ERROR, SHOW THE FAILING DPU OPCODE. 
2339 043412 bos: PRINTX #OPCFX,OPC1 ; EXTENSION SHOWS BAD OPCODE. 
oes 043436 000207 RTS PC 
oun? : DISPLAY CODE. 
t3%¢ 043440 102000 164000 173000 OPC1: CHAR!LO, DNOP, STOPN ; DISPLAY CODE. 
4344 043446 END. TEST 


LRA RARER RRR RRR EREREEREREERREEEREEe 
+ 

e 

“toe END TEST 7 

se 

e 


MARA AAAAASAALALALELALARAAL ALLEL AREAL EEE LEAR SEAR RARE E ERE S EEE EEA SY 
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TEST 8 
4346 


Sos 
RRLLLLLLLLE 

SORE 

SOsNNNOO 


ER 
ts 33 


043674 


INCREMENTING HISTOGRAM BASE ADDRESS 


004737 
004737 
012703 


000137 
004737 


173000 


027702 
026074 
000002 
043712 
043710 
027454 


000005 
137216 


027646 


043554 
030072 


137232 


137222 


SEQ 0112 


SRRERERAEAAEREAREEKEAAAEAEERERAEEEAEAEAAAARARAAEAEAERRAAAERAEARERAEARERAEREREEEE 


ie 
es BEGIN TEST 8 - INCREMENTING HISTOGRAM BASE ADDRESS 


SEERA EAEEAEERREEEAEREEREREREE 


3 (ITERATION COUNT = 5.) 


3 : THE READ/WRITE CAPABILITY OF THE BASE ehh ep COORDINATE WILL BE 

: CHECKED BY "‘INCREMENTING'’ IT FROM 2 TO 1 

: (NOTE THAT THE WRITTEN DATA WILL APPEAR OHIFTED: 1 PLACE TO THE RIGHT.) 
: R1= EXPECTED, R2=RECEIVED, RO.R35=WORK REGS. 


INCHBA: COMBEG 
JSR 


PC,TSTGO ; TITLE. 
JSR PC ,DPRESET : DO SOFT INIT. 
1$: MOV #2,R3 
BGNSEG S MRRR RRR KEKE KKK KKK KKK KKK << BEGIN SEGMENT. 
2$: MOV R3,11$ ; SET VALUE FOR HBA CODE. 
MOV R3,R1 
ASR R1 
MOV #10$,aDPC 3; WRITE HBA. 
JSR PC ,WAITF 
RDDSRA HBA,R2 
a #SELHBA,a@DSR ; READ HBA INTO R2 . 
IFERROR IHBAE,EXPREC 
CMP R1,R2 3; OK? 
BEQ 64 ; YES. 
san HRDERR JIHBAE,EXPREC, =; NO. 
CKLOOP ; LOOP ON ERROR. 
ADD #2,R3 : INCREMENT. 
BIC #176001,R3 > MASK UNWANTED. 
CMP R3,40 3; DONE? 
BNE 2s 3; NO. 
30$: Freee 13 2 KRKKEK KERR ERE K KKK KKK KKK << END SEGMENT. 
JSR PC,LOOP ; REPEAT ‘TIL LOOPER EXPIRES. 
BCS 65$ 
BR 66$ 
65$: JMP 1$ 
66$: PC, TSTEND ; PRINT ERROR SUMMARY, IF REQ'D. 


JSR 
EXIT TST + EXIT THIS TEST >>>>5>>>>>>>>>3>>>>>>>>>>> 


t DISPLAY CODE. 

10$:  SETHB 

11$: 0 
STOPN 





9 
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EST 8 INCREMENTING HISTOGRAM BASE ADDRESS 
4380 
4381 043716 END. TEST 
; MARABARASAARALLASLALELASLEALAAELAELE SALES EEE EEE SERRE EES EERE ECE EEE eee eae 
ie END TEST 8 
| Senne NARNNDERENNRERNNEREEARNENRENNSAsNnCENRENneOnhOseNNEtneEEES 


SEQ 0113 


Nace re ee Sr ee eee ne 


9 
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eee TEST 9 INCREMENTING CHARACTER BASE ADDRESS SEQ 0114 


4383 


SRA AAEEAREAAAEAEREAAREEEREAAEAARAARERERERAAERAEAEEEEAEREEEEREREREREEEEEREE 


ie 
:* BEGIN TEST 9 = INCREMENTING CHARACTER BASE ADDRESS 
;* 


SRE AAAEAARAEAEEEAEREAEEAEERAEREREREAERAEREEAEAEAEEEEEEEEEREEEEEEEEKEEEEREEE 


: (ITERATION COUNT = 2.) 


4384 
4385 3 
4386 3; THE READ/WRITE eet tee OF THE BASE CHARACTER — WILL BE 
4387 ; CHECKED BY ‘‘INCREMENTING’’ IT FROM 1 TO 177777 TO O. 
cease ; R1= EXPECTED, R2=RECEIVED, RO,R3=WORK REGS. 
4390 
4391 044014 INCCBA: COMBEG 
044014 004737 027702 JSR PC,TSTGO s TITLE. 
044020 004737 026074 JSR PC, DPRESET ; DO SOFT INIT. 
4392 044024 012701 000001 1$: MOV #1,R1 
4393 044030 BGNSEG 5 MRKRK KR RRR E EEK KKK KKK KKK BEGIN SEGMENT. 
4394 044032 010137 044152 2$: MOV R1,11$ ; SET aa FOR CBA CODE. 
4395 044036 012777 044150 136766 MOV #10$, aDPC ; WRITE CBA 
4396 044044 004737 027454 JSR PC ,WAITF 
4397 044050 RDDSRA_ CBA,R2 
044050 012777 000007 136756 MOV #SELCBA,aDSR ; READ CBA INTO R2 . 
044056 017702 136752 MOV SR, 
4398 044062 IFERROR ICBAE ,EXPREC 
044062 020102 CMP R1,R2 3: OK? 
044064 001410 BEQ 648 : YES. 
044066 HRDERR ICBAE,EXPREC, =; NO. 
044106 645: 
4399 044106 CKLOOP ; LOOP ON ERROR. 
£400 044110 062701 000001 ADD #1,R1 : INCREMENT. 
4401 044114 020127 000000 CMP R1,40 3; DONE? 
4402 044120 001344 BNE 2$ ; NO. 
4403 044122 30$: ENDSEG 3 KKK KKK EKER KERR KKK END SEGMENT. 
4404 044124 COMEND 1$ 
044124 004737 027646 JSR PC,LOOP ; REPEAT ‘TIL LOOPER EXPIRES. 
044130 103401 BCS 65$ 
044132 000402 BR 66$ 
044134 000137 044024 65$: JMP 1$ 
044140 004737 030072 66$: JSR PC, TSTEND ; PRINT ERROR SUMMARY, IF REQ'D. 
rr 64 044144 EXIT TST t EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 
4407 3 
4408 3; DISPLAY CODE. 
4409 : 
4410 044150 152000 10$:  SETCB 
4411 044152 000000 11$: 0 
ait 044154 173000 STOPN 
4414 044156 END. TEST 


SERA AKAEAEREAAAAAAAAAAAAAAAAAARAAEAAAEAAEEAEAAAERRERAAEREEEE EEE 
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eee TEST 9 INCREMENTING CHARACTER BASE ADDRESS 


-* 
;@ END TEST 9 
°* 


SRAAEARRARAEEAAAAAARAAREREREREAAAAERAAEAAARAAAAAAAERAAAAEEAEAAERAEAEREKRKEREEEE 


SEQ 0115 


5 
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eee TEST 10 DJMS/DPOP 





441 
6 J PAAAAA AE AAAAAAAAAAAAAAAAEAAAAAAAAAAAAAAEAAAEARARAEAAARAEEAAREREHAREEEEREEE 
*@ 
* BEGIN TEST 10 =  DJMS/DPOP 
*® 
WITITIIITITITIIIIITITT ITT IT TTT i titiiiiiitiiiiiititiiiiiii iii i iti 
: (ITERATION COUNT = 10.) 
4617 
46418 3 
$619 > CHECK THE OPERATION OF THE DJMS AND DPOP OP CODES. 
4421 044222 JMSPOP: COMBEG 
044222 004737 027702 JSR PC, TSTGO : TITLE. 
sas 044226 004737 026074 JSR PC -DPRESET : DO SOFT INIT. 
rr} 044232 1$: BGNSEG 5 RRR KEE EKER KEKE KK KKK KKK KKK BEGIN SEGMENT. 
4425 044234 DPSTART #10$ : DOA DMs. 
044234 012777 044630 136570 MOV #10$, aDPC : START THE DPU. 
044242 004737 027454 JSR PC WAITF + WAIT FOR DISPLAY STOP. 
4426 044246 012701 044646 MOV #2i8.R1 
4427 044252 017702 136554 MOV @DPC.R2 READ DPC INTO R2. 
4428 044256 IFERROR JPDPCE JEXPREC, ,CKLOOP 
044256 020102 CMP R1,Re 3 Ok? 
044260 001411 BEO 648 YES. 
044262 a HRDERR JPDPCE,EXPREC,CKLOOP =; NO. 
4429 044304 012701 044634 MOV #11$,R1 
4430 044310 RDDSRA PCS, 
044310 012777 000001 136516 MOV WSELPCS,@DSR =; READ PCS INTO R2. 
044316 017702 136512 MOV 
4431 044322 IFERROR JPPCSE -EXPREC, , CKLOOP 
044322 020102 CMP R1,R2 : Ok? 
044324 001411 BEQ 65 YES. 
044326 HRDERR JPPCSE.EXPREC,CKLOOP =; NO. 
044350 658: 
4432 044350 DPCONT : NOW DO A DPOP. 
044350 052777 000001 136454 BIS #8170, aDPC > CONTINUE THE DPu. 
044356 004737 027454 JSR PC WAI TF : WAIT FOR DISPLAY STOP. 
4433 044362 012701 044636 MOV #12$.R1 
4434 044366 017702 136440 MOV a@DPC -R2 READ DPC. 
4435 044372 IFERROR JPDPCE TEXPREC, ,CKLOOP 
044372 020102 CMP R1,R2 : Ok? 
044374 001411 BEQ 66 YES. 
044376 HRDERR JPDPCE,EXPREC,CKLOOP =; NO. 
044420 66S: 
4436 044420 DPCONT : 00 A DMS (WITH AUX SEG BIT SET). 
044420 052777 000001 136404 BIS #8170, aDPC ; CONTINUE T 
044406 004737 027454 JSR PC,WA WAIT FOR DISPLAY STOP. 
4437 0464432 012701 044647 MOV #21$! AUXSEG,R1 
044436 017702 136370 MOV aDPC.R2 READ DPC INTO R2. 
4439 044442 IFERROR PDPCE SEXPREC, ,CKLOOP 
044442 020102 R1.R : Ok? 
044444 001411 bro 67 VES. 
| 044446 HRDERR JPDPCE,EXPREC.CKLOOP § =: NO. 


SEQ 0116 


[nn ——————— — 
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| eee TEST 10 DJMS/DPOP SEQ 0117 
| 044470 678: 
| 4440 064470 012701 044642 MOV #13$,R1 
| 661 0664746 RDDSRA PCS.R 
044474 012777 000001 136332 MOV #ELPCs, @DSR =; READ PCS INTO R2. 
044502 017702 136326 MOV apsRr, 
4442 044506 IFERROR ope Cee. sachemec a 
044506 020102 CMP R1,R2 
044510 001411 BEQ 68 ES. 
044512 HRDERR JPPCSE,EXPREC, cxiLooP 3 NO. 
044534 68$: 
64643 044534 DPCONT : NOW DPOP AGAIN. 
044534 052777 000001 136270 BIS #8170, a0PC : MONT INGE THE DPU. 
044542 004737 027454 JSR WAITF : WAIT FOR DISPLAY STOP. 
6444 0445466 012701 044644 MOV 9008 $,R1 
4445 044552 017702 136254 MOV a0P C,R2 : READ DPC. 
6446 044556 IFERROR JPDPCE ,EXPREC 
044556 020102 CMP R1,R2 : OK? 
044560 001410 BEQ 69$ YES. 
044562 HRDERR JPDPCE,EXPREC, ; NO. 
044602 69S: 
e914 044602 ENDSEG b KKKKK KKK KEKE KKK KKK KKK END SEGMENT. 
6469 044604 COMEND 1$ 
4604 004737 027646 JSR PC,LOOP : REPEAT "TIL LOOPER EXPIRES. 
044610 103401 BCS 70$ 
044612 000402 1$ 
044614 000137 044232 70$: JMP 1$ 
044620 004737 030072 71$: JSR PC, TSTEND ; PRINT ERROR SUMMARY, IF REQ'D. 
rei | 044624 EXIT TST : EXIT THIS TEST >>>>5>>>>>>>>>>>>>>>9>>>>>> 
rts : DISPLAY CODE 
4454 044630 160001 044644 10S: DUMS 208 
4455 044634 173000 11$: STOPN 
4456 044636 160001 044645 12$: DJMS, 20$! AUXSEG 
443? 044642 173000 138: STOPN 
4459 044644 173000 20S: STOPN 
4460 044646 165000 21$: DPOP 
4461 044650 173000 22$: STOPN 
4463 044652 END. TEST 


RRA AAAREERAEEARERAERAEAAEAAAAERARERERRAAAAARAEEAEEAAERAEEEKEE EE 
® 


* END TEST 10 
** 


REAR AAA AAEAAEAAARARARERERAARAERAARAARERERAAEAERAREREEERE 





aa 











een 


4465 


4 
4471 044744 
4744 


4750 
4472 ages: 
4a 4760 


4 
4478 045012 
4479 


4480 
4481 045016 
4482 045022 





PS 





So 


ESSRSE AKSS 


& 
Nm 


8 10 


mah ee GRAPHIC SYS. DIAG MACRO M1113 ello 11:23 PAGE Bs 


MAIN MEM MGT ACCESS (OVER 28k) 


032700 
001410 


004737 
012703 


027702 
026074 
003244 


001000 


031322 
001600 


172354 


000014 
173738 

140000 
FE 34 

64000 
031506 
000000 
027454 


031270 


000001 
027454 


135724 


135674 


SEQ 0118 


SRERARAEAAARAAERRARAEAREREAEEEREEEAARAARRAERRAEARAREERERAERAEEEEEEREREEEEEEEEE 


te 
39 BEGIN TEST 11 = 
3* 


MAIN MEM MGT ACCESS (OVER 28k) 


SRE EEAAAERAAAEEEAEAEAAEEEEERERAAAEAAEARKAAERAAAERAEAERARAEKEERREREEEREEEEEEEE 


: (ITERATION COUNT = 1.) 


; IN MEMORY OVER 28K. 


; CHECK THAT A DISPLAY FILE CAN BE ACCESSED VIA MAIN MEM MGT. 


MMMAC : 


JSR PC,TSTGO 
JSR PC. DPRESET 
TST KTFLG 
BNE MMMACA 
RFLAGS RO 
BIT #PNT,RO 
BEQ 1$ 
PRINTF #MNOKT 
1$: EXIT TST 
MMMACA: JSR PC,KTBKGD 
1$: MOV #1600,R3 
2$: BGNSEG 
MOV R3,@4KIPAR6 
MOV R3,R1 
ASL R1 
ASL R1 
ASL R1 
ASL R1 
WIDSRA R1,MRR 
MOV #SETMRR,RO 
BIS R1,RO 
MOV RO. aDSR 
MOV #140000,R5 
JSR PC,KTO 
MOV #DNOP, (RS) 
JSR PC ,.KTOFF 
DPSTART 
OV #0,aDPC ; START 
JSR PC; WAITF 
BR 4$ 
3$: JSR PC,KTON 
MOV #DNOP, (R5) 
R PC .KTOFF 
DPCONT 
BIS #81T0,aDPC 
JSR PC.WAITE 
4$: MOV R5.R1 


TITLE. 
DO SOFT INIT. 
GOT KT & >28K? 


ARE WE PRINTING TEST NOS.? 
BR IF NO == DON'T PRINT 
EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 


: SET_UP BACKGROUND. 
; INIT BANK PTR. (TO START OF 28K PAGE) 


2 KKK KKK EKER KEKE KKK KKK BEGIN SEGMENT. 


: SET KT TO TEST PAGE. 
SET UP MRR. 


; WRITE R1 INTO MRR . 


: INIT Loc PTR. 
: REPLACE '‘STOPN'' WITH ‘DNOP’’ IN TEST LOC. 
t DISABLE kT. 


THE DPU. 
3 WAIT FOR DISPLAY STOP. 


; ENABLE KT. 
3 REPLACE * aie WITH ‘DNOP’’ IN TEST LOC. 
; DISABLE K 


CONTINUE THE DPU. 
WAIT FOR DISPLAY STOP. 
; R1 = EXPECTED DPC, AND - 
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eee TEST 11 
4505 045144 
4506 045150 
4507 045154 
4508 045160 

045160 
045166 
4509 Ooi Ss 
04517 
045174 
045176 
045200 
642895 
04522 
4510 045222 
4511 045226 
4512 045232 
4513 
4514 045236 
4515 045242 
4516 045246 
4517 045250 
4518 045252 
4519 045256 
4520 045260 
4521 045264 
4522 
4523 045266 
045266 
045272 
045274 
045276 
30. 


4524 045306 
4525 045312 
4526 
4527 
4528 045316 
4530 045366 


MAIN MEM MGT ACCESS (OVER 28k) 


042701 
BGe791 
017702 
012777 
017704 


020102 
001002 
020304 
001410 


004737 


001322 


020337 
001403 
062703 
000660 


170000 
000004 
135652 


000004 
135642 


031270 
173000 
031306 
000002 
147774 
003244 


000260 


027646 


045022 


030072 
031306 


116 


135646 


045 


BIC B17 Qy00..Rt 


ADD 
MOV aDPC,R2 
RDDSRA MRR,R4 
MOV #SELMRR,aDSR 
MOV aDSR,R 
IFERRX2 MMMACE ,MMMAE 
CMP R1,R2 
BNE 658 
CMP R3,R4 

648 


BEQ 
ers: HRDERR MMMACE ,MMMAE , 


JSR PC, KTON 
MOV WSTOPN, (RS) 
JSR PC .KTOFF 
ADD #2,R5 
CMP R5.#147774 
BNE $ 
ENDSEG ; 
CMP R3,KTFLG 
BEQ 
ADD #200,R3 
BR 2$ 

9$: COMEND 1$ 
JSR PC, LOOP 
BCS 66$ 
BR 67$ 


66$: JMP 1$ 


67$: JSR PC, TSTEND 
JSR +7 id 


SEQ 0119 | 


= (R3 ALREADY = EXPECTED MRR). 


; READ DPC INTO R2. 


READ ARR INTO R4 . 


NO. 
2ND ITEM OK? 
YES 


; ENABLE KT. 
; REPLACE ‘'DNOP’’ WITH ‘'STOPN’’. 
: DISABLE KT. 


; ADVANCE LOC PTR. 
DON 


E ENOUGH LOCS? 


; NO. 
5 RRR R RRR EEK K KKK KKK KKK END SEGMENT. 
; YES. ALL BANKS DONE? 


YES. 
NO. ADVANCE BANK PTR. 


REPEAT "TIL LOOPER EXPIRES. 


; PRINT ERROR SUMMARY, IF REQ'D. 


1ST ITEM OK? 


; DISABLE KT11 


EXIT ; EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 
MNOKT: Beeie /INZA |!!! NO KT, OR <32K = NO TEST !!!/ 
END. TEST 
FEAR EEARREAEERRERREREEREREREEERAEERERREEREREEAREAEAERAEERAEAEEREREERRREREE 
st 
3* END TEST 11 
st 


RARER EEAREEAAEAEAAERERERRERAEAERERAERAEAAEEERAREREAEEEREEEEERE 
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eee TEST 12 AUX MEM MGT ACCESS (OVER 28k) SEQ 0120 
4532 FARRAR AARAAERERRRAEEERERRARA AEE ARERERRREAREREERRAERERREEEERREEE 
** 
* BEGIN TEST 12 = AUX MEM MGT ACCESS (OVER 28k) 
*® 
IIIITITIIII IIIT IIT Tti TT iti tit iiiiiiiitiiiiiiiiititiiiiititiiiiii iit 
(ITERATION COUNT = 1.) 
rt 
4535 > CHECK THAT A DISPLAY FILE CAN BE ACCESSED VIA AUX MEM MGT. 
4336 : IN MEMORY OVER 28K. 
4538 045456 KMMAC: COMBEG 
045456 004737 027702 JSR PC, TSTGO : TITLE. 
045462 004737 026074 JSR PC. DPRESET : DO SOFT INIT. 
045466 005737 003244 TST KTFLG : GOT KT & >28k? 
4540 045472 001016 E XMMACA : YES. 
4541 045474 RFLAGS RO 
4542 045476 032700 001000 BIT #PNT,RO : ARE WE PRINTING? 
4543 045502 001410 EQ 1$ : BR IF NO 
4544 045504 PRINTF #MNOKT : NO. 
4306 045524 1$: EXIT TST 3: EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 
4547 
4548 045530 004737 031322 XMMACA: JSR PC ,.KTBKGD : SET ue BACKGROUND. 
4949 045534 012703 001600 1$: MOV #1600,R3 : INIT BANK PTR 
$233 045540 2$: BGNSEG 2 SRKRKR EERE EEE K KK KK KKK <<< BEGIN SEGMENT. 
4553 045542 010337 172354 MOV R3, @AKIPAR6 : SET KT TO TEST PAGE. 
4554 045546 010301 MOV R3,R1 : SET UP XRR. 
4555 045550 006301 ASL R1 
4556 045552 006301 ASL R1 
4557 045554 006301 ASL R1 
4558 045556 006301 L R 
4559 045560 WIDSRA R1,XRR 
045560 012700 000016 MOV #SETXRR,RO : WRITE R1 INTO XRR . 
045564 050100 BIS 
045566 010077 135242 MOV “aDSR 
4560 045572 012705 140000 MOV Rr eepoG. R5 : INIT LOC PTR. 
4862 048600. O12715 164000 jek EC RTON : REPLACE’ "STON" WITH “DNOP" IN TEST Loc 
4563 045606 004737 031306 JSR PC .KTOFF : DISABLE ; 
4564 045612 DPSTART #10$ 
Bi3ele TEE QAGOBR T75R2MROLIREF RRITTHOMEOPS Par ston 
4565 045624 000413 BR 4$° 7 : 
4367 oiee $ Bae 071800 ” ton ADiOP (R5) : REPLACE STOPW" WITH ‘DNOP’’ IN TEST LOC 
4569 045656 004737 031306 usr P KTOFF : DISABLE K ; 
045642 052777 000001 135162 BIS #81T0, aDPC : CONTINUE THE DPU. 
045650 004737 027454 JSR PC. WA WAITF ; WAIT FOR DISPLAY STOP. 
4571 045654 010501 4$: MOV R5,R1 : R1 = EXPECTED DPC, AND - 


eet 


74 666 
4575 045672 


4576 


¥ 
co 
ue 
‘Ni 
Ww 


_Y NN 
So w= 


Coun LS 


a 
NORNORS oOo 


ESET EES Boro neee 


NN 
NNN 


oa 


4591 046020 
4592 046024 
4593 
4594 
4595 
4596 
4597 046030 
4598 046034 


4599 
4600 046036 


FRNOEFERSSN 
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AUX MEM MGT ACCESS (OVER 28k) 


000137 
004737 
004737 


160001 
173000 


170000 
000005 
135140 


000006 
135130 


031270 
173000 
031306 
000002 
147774 
003244 


000260 
027646 


045534 


030072 
031306 


000001 


135134 


BIC As a a 


ADD 
MOV aDPC ,R2 
RDDSRA XRR,R4 
V #SELXRR,a@DSR 
DSR,R4 


MOV ’ 
IFERRX2 XMMACE , XMMAE 
CMP R1,R2 

BNE 658 
CMP R3,R4 


BEQ 64 
65$: HRDERR XMMACE ,XMMAE, 


SEQ 0121 


(R3 ALREADY = EXPECTED XRR). 
READ DPC INTO R2. 


READ XRR INTO R4 . 


Ist ITEM OK? 
2ND ITEM OK? 
YES 


NO. 
64$: 
JSR PC,KTON 3; ENABLE K 
MOV #STOPN, (R5) 3; REPLACE "BoP" WITH ‘'STOPN’’. 
JSR PC .KTOFF 3; DISABLE K 
ADD #2,R5 3; ADVANCE LOC PTR. 
CMP RS ,4147774 3; DONE ENOUGH LOCS? 
BNE 3$ 3; NO. 
ENDSEG 5 MRRR RRR EKER KKK KKK KKK << END SEGMENT. 
a R3,KTFLG 5 vee ALL BANKS DONE? 
ADD #200,R3 ; NO. ADVANCE BANK PTR. 
BR 2$ 
9$: COMEND 1$ 
JSR PC,LOOP ; REPEAT ‘TIL LOOPER EXPIRES. 
BCS 66$ 
BR 67$ 


66S: JMP 1$ 
67$: JSR PC, TSTEND 
JSR PC KTOFF 
exits TSf 
: DISPLAY CODE. 


10s: DJMS , AUXSEG 
STOPN 


END. TEST 


as SUMMARY, IF REQ'D. 
EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 


SRE AAEAAEAAAARAAAEAEAEAERERARARRERAAAAAAERAAERERARAREREEEEAERREREREEEE 


te 
- END TEST 12 


SRA EAAAARAARAAARAEAEEEAAERAERAEREAAEAEAAAERAKRAAERERAEREARAERAAERAEEEEEEEEE 
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eee TEST STOP INTERRUPT SEQ 0122 

4605 

FERRARA AAAAAARAAEARAREREEEEREERERRAEERERAEAERERREEEERERREREREAEEEEREKEREEEEEE 
3* 

jt BEGIN TEST 13 = STOP INTERRUPT 

** 

ITITITITITITITILITI LITT TIT L LLL LLILILL LLL LLL ELL LLL LTE ELLE TTT 
: (ITERATION COUNT = 40.) 

4606 ; 

4607 : CHECK THE ACTION OF THE STOP INTERRUPT. 

4608 : ALSO CHECKED IS THE ACTION OF THE CSR ‘FORCE STCP INTR" BIT. 

£008 ; REPEAT 40 TIMES AFTER QUICK PASS. 

4611 046110 004737 027702 STPTST: JSR PC, TSTGO i TITLE 

ai7 046114 19$: BGNSEG 2 MRKK KR EEE EEE KKK KKK KKK BEGIN SEGMENT. 

4615 046116 004737 025402 ISR BC. DPINIT yINIT THE DPU SO WE CAN CHECK INTERNAL REGS. ;aaal 
046122 012737 177601 026106 MOV W017 74001 1OKCKIN! LOKSTP. INTMASK : PRIME FLAG, EXPECT STP 
046130 012777 046742 134674 MOV #STP1,aDPC XCT ''STOP AND INT'’. 

4618 046136 004737 027454 1$: JSR PC,WAITF 
046142 105737 026167 TSTB  —sCINT FLAG ; DID WE GET AN INTERRUPT? 

4620 046146 001412 BEQ 2$ 2BR IF INTERRUPT REC'D. 

1 046150 012701 046136 MOV #1$,R1 zPC 

4622 046154 HRDERR NSI,INTERR rNExP’ D, NOT REC'D. 

23 046174 004737 023422 2s: JSR PC, LIRCHK ‘Check INTERNALS FOR iNIT°ED STATE. 

4624 046200 INTSET STP 
046200 012737 177601 026106 MOV #2017760! 1OKCKIN! 1OKSTP, INTMASK PRIME FLAG, EXPECT STP 

4625 046206 012777 046746 134616 MOV #STP2,aDPC XCT STOP’, ENABLE STILL SET. 

4626 046214 004737 027454 3$: JSR PC ,WAITF 

4627 046220 105737 026107 TSTB. —s INT FLAG 7DID WE GET AN INTERRUPT? 

4628 046224 001412 BEQ 4 :BR IF INTERRUPT REC'D. 

9 046226 012701 046214 V #3$,R1 T PC AT 
30 046232 HRDERR NSI.INTERR SINT EXP'D REC'D. 

4631 046252 004737 023422 4$: SR PC, TIRCHK + CHECK INTERNALS FOR INIT°ED STATE 

4632 046256 INTSET 
046256 012737 177600 026106 MOV #°0177400! 1OKCKIN, INTMASK ; PRIME FLAG, NO INTR. EXPECTED. 

4633 046264 012777 046752 134540 MOV #STP3 aD :XCT ''l OFF’ AND “’STOP’’. 

046272 004737 027454 5$: JSR 

4635 046276 123727 026107 000377 CMPB PC UAL 3DID WE GET AN INTERRUPT? 
046 001412 BEQ AS 7BR IF NO INTERRUPT. 

4637 046306 012701 046272 V #5$,R1 

4638 046312 HRDERR USI. INTERR zINT REC'D EXP'D. 

4639 046552 004737 023422 6$: ISR PC, JIRCHK + CHECK CNTERNALS FOR INIT°ED STATE 
046336 012737 177600 V #*0177400! IOKCKIN, INTMASK PRIME, FLAG, NO INTR. EXPECTED. 

1 046 012777 046760 030198 MOV #STP4 «aDP ¢ ACT "LON" AND “STOP 
4642 046352 737 027454 7$: JSR 
3 046356 123727 026107 000377 CMPB TNTFLAG. #*0377 :DID WE GET AN INTERRUPT? 

4644 046364 001412 BEQ [BR IF NO INTERRUPT. 

4645 046366 012701 046352 V #78, RI 

4646 046372 HRDERR sINT REC'D, NOT EXP'D. 

4647 046412 012777 000053 134414 8$: MOV DP ORCSIIURTCSR. absR :SET BIT TO FORCE STOP INTR. 

046420 012737 177601 026106 V | LEER ; PRIME FLAG, EXPECT STP 





Se ss 
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SEQ 0123 


4649 046426 012777 0567 3¢ 134376 MOV #STP3, sre sxcT toe oe AND STOP 
4650 0464 eth If 027454 9$: JSR PC WAITF :WAIT F 
4651 046440 105737 026107 TST8 INFFLAG :DID WE GET AN INTERRUPT? 
4652 046444 001412 BEQ 10$ ‘BR IF YES == OK 
4653 046446 012701 046434 MOV #9$,R1 3GET CPU PC FOR ERR REPORT 
4654 046452 HRDERR we INTERR 7 INTR EXP'D, NOT REC'D 
4655 046472 10$: INTSET 
046472 012737 177601 026106 MOV #0177400! 1OKCKIN: 1OKSTP, FT yn ok ; PRIME FLAG, EXPECT STP 
4656 046500 012777 046760 134324 MOV #STP4 sxcT ' ten’ * AND ‘'STOP N’’ 
046506 004737 027454 11$: JSR Pe UAL. [WAIT FOR DONE. 
4658 046512 105737 026107 TSTB INTFLAG :DID WE GET AN INTERRUPT? 
4659 046516 001412 BEQ 2$ Fass IF YES == OK 
0465 012701 046506 MOV #11$, T PC 
4661 046524 HRDERR NSI IN NTERR EPORT IF 
4662 046544 012777 000013 134262 12S: MOV #0'WRTCSR, @DSR ;CLEAR THE C 
4663 046552 SETPRI #PRIO7 ae OUT INTERRUPTS 
4664 0465 105037 026106 CLRB IN TNTHASK aor EXPECT a ier oe 
4665 046564 012777 046742 134240 MOV #STP1,aDPC T "STOP AND INT 
4666 046572 004737 027454 JSR PC, AIT DON: ONE 
4667 046576 012737 100001 023056 MOV #81113 {PINTRA, GDDAT sEXPECT PENDING INTR 
4668 04 004737 022410 JSR PC,FLGC 3; CHECK FLA LAGS FOR IT 
046610 012777 000012 134216 MOV #CLFLGS, “aDSR sCLEAR THE INTERRUPT. 
4670 046616 012737 100000 023056 MOV #100000.G 
4671 046624 004737 022410 JSR PC,F techn 3.-eAND VERIFY IT. 
4672 046630 INTSET 
0466 012737 177600 026106 V 1) aeemaae INTMASK ; PRIME FLAG, NO INTR. EXPECTED. 
4673 046636 SETPRI #PRIOO LLOw INTERRUPTS 
4674 046644 000240 13$: NOP .-AND SEE IF WE GET INTR 
4675 046646 000240 NOP 
4676 046650 000240 NOP 
4677 046652 000240 NOP 
4678 046654 004737 027454 JSR PC ,WAITF 
04 105737 026107 TSTB INTFLAG :DID WE GET INTERRUPT? 
04 00412 I 14$ :0K IF NO INT 
4681 046666 012701 046644 MOV #13$,R1 sSAVE CPU bee 
046672 HRDERR USI,INTERR : SAY UNEXPECTED INT 
4683 046712 004737 023434 148: JSR PC, IIRCNF + CHECK INTERNALS NOR INIT‘ED de 
: 046716 ENDSEG : KKKK KEKE EEE END SEGMENT 
4686 046720 LOOPTO 18$ ; REPEAT ‘TIL LOOPER EXPIRES. 
0467 004737 027646 JSR PC,LOOP 
0467 103404 BCS 
4687 046726 004737 030072 JSR PC, TSTEND 
4688 046732 EXIT TST 3: EXIT THIS rest >>>>>>>>>>>>>>>>>>>>>>>>>> 
4689 046736 000137 046114 18$: JMP 19$ ; JUMP TO’ START OF LOOP 
ret} ; DISPLAY CODE 
4693 046742 164002 173400 STP1: SYNC+1,STOPI ;STOP AND INTERRUPT. 
rts: 046746 164002 172000 STP2: SYNC+1, * STOP ZAGAIN. He SHOULD HAVE... 
4696 046752 164002 171000 172000 STP3: SYNC+1,SIOFF,STOP ENABLE OFF AND STOP (NO INT 
4697 046760 164002 171400 173000 STP4: SYNC+1,SION, STOPN 7 ENABLE ON, STOP WITHOUT INTERRUPT. 


4698 
4699 046766 


END. TEST 


FARA AAEEREEREREEEAEREREREREEAEAEAEEAEAEAAEEEAEREAAEREAEAAAAERERRKEAREERRERE 
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END TEST 13 


* 
:* 
** 
SRR AEAEAAAAEEREEAAERAERRERE 








4701 


4715 04 
4716 047124 
4717 

4718 047130 
4719 047132 
4720 

4721 

4722 047140 
4723 047146 
4724 ofA 


4725 047162 


4744 047302 
4745 
4746 047304 
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PU TIME-OUT INTERRUPT 


004737 
004737 


027702 
026074 


023727 
103416 


032700 
001410 


002120 007577 


001000 


So 
_ 
~ 
N 
N 
N 


140014 133674 


000012 
000013 


177604 
160000 


133666 
133660 


026106 
133642 


026107 
047170 


SSssssss SS 


So 
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—~ 


023056 
023056 
133552 
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3 
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Nm 
23 
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—_ 
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WWWIWN NWN 

SN 
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So 
® 


SEQ 0125 


SRERERAAEEAEEARAEAEAAAAAEAEAEEAEEEEEAEAAERERAAAEARAEAEAEARERAAARERAERAREAAAEAEREAEREE 


8 
“hl BEGIN TEST 14 = DPU TIME-OUT INTERRUPT 
3* 


ARR RALALEAALALALALA LAA AAAA AAA AAA AAER LEER RRA SEERA RRR RRA RARER GD 


; (ITERATION COUNT = 100.) 


; ay THE DISPLAY TO A NON-EXISTENT MEMORY LOCATION (IF AVAILABLE) 


; VERIFY THAT HE RESPONDS WITH A TIME-OUT ERROR INTERRUPT. 
; REPEAT 100 TIMES AFTER QUICK PASS. 
TOTVST: as 
PC, TSTGO : TITLE. 
4SR PC, DPRESET : DO SOFT ltt, 
READBUS T KIND OF CPU? pteeB 
BNCOMPLETE 1$ BR I F UNIBUS peeeB 
CMP LSHIME #7577 > 136K ON LSI-11? p2eeB 
LO 1$ peeeB 
RFLAGS RO VES. ory’ FLAGS. pteeB 
IT #PNT,RO ARE ¥ PRINTING? pxeeB 
EQ 19$ F NO. peeeB 
PRINTF #NOTOT TSAY WE CAN'T TEST. peeeB 
19$: EXIT TST SEXIT THE TEST. peeeB 
1$: BGNSEG § RRR REC eT RELOC T BEGIN SEGMENT. 
MOV #SETMRR! 140000, aDSR ySET RELOC TO 600000, SINCE THE... 
fala V3 PAGE IS REALLY 760000. 
MOV #CLFLGS,aDSR CLEAR THE FLAGS & PENDING INTERUPTS. 
wv #OLURTCSR, ,@DSR :CLEAR THE ERROR CODE. 
MOV 970177400; LOKCKIN® IOKERR. INTMASK ; PRIME FLAG, EXPECT ERR 
MOV #160000,a : act DISPLAY START... 
10$: CLR RO 3 «.. SHOULD GET TIME-OUT. 
11$: DEC RO 
BNE 11$ 
TSTB INTFLAG 3 DID WE GET PROPER INTERRUPT? 
BEQ es Z IF YES 
V #10$,R1 z1T DIDN'T, GET ERROR PC... 
HRDERR NTO,INTERR ‘NO TIME-OUT INTERRUPT. 
2$: 
MOV #81715: <leBIT11>: SELCSR GDDAT  ;SET UP GDDAT W/ ERROR CODE. 
JSR RCHK :CHECK FOR THE ERROR (NXM) 
MOV 160000" soens SAY FLAGS SHOULD HAVE NO PENDING INTRS 
JSR PC -FLGCHK 3..CHECK FOR IT. 
MOV #O'WRICSR,@DSR ;CLEAR ERROR CODE 
CLR GDDAT sEXP O°S FOR.. 
JSR PC ,HBCHK ae SE 
JSR PC, CBCHK | enon S 
JSR C.XMCHK 3..eAND AUX MMGT. 
ENDSEG 3B KKK ERE E KEKE KKK KKK END SEGMENT. 
LOOPTO 1$ ; REPEAT... 










wee TEST 14 


4752 
4753 047334 


4754 047336 
4755 


DPU TIME-OUT INTERRUPT 


004737 
103707 
000400 


012777 
012777 
004737 


045 


027646 


116 


045 
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JSR PC ,LOOP 
1$ 


BCS 
BR Ctié‘éSSS y.e.TIL LOOPER EXPIRES. 
5$: MOV #SETMRR!0,@DSR s INSURE MAIN-SEG RELOC IS 0... 
MOV #SELDSR,@DSR “SELECT REAL DSR 
JSR PC, TSTEND 
END. TEST 
FRA EEEERAERERAERERARREREEAEEEEERRERAEREREREERRAEEEERR EE 
:* END TEST 14 
32 


FERRARA AAR EREREEEEREAEREREREEERAERE ARERR EREERERAREEREEEEE 


NOTOT: ely /ENZA = *** MEMORY > 124K. CANNOT TEST TIMEOUT. ***/ 


peeeB 


SEQ 0126 





xtt 


TEST 
4757 


472 
4765 047476 
4766 
4767 
4768 047476 
4769 047500 
4770 047504 
4771 oe 
4772 047520 
520 


526 
4773 047532 
4774 536 


04 
4781 047626 
4782 
ore 


4784 
4785 047630 
4786 047632 


4787 047636 
4788 047644 

047644 
4789 047652 


004737 
004737 


004737 
012777 
012737 


027702 
026074 


025462 
170015 
177604 
052420 
027454 
026107 


047526 
114003 


000003 
133232 


025402 
170017 
177604 


133322 
026106 
133304 


133236 


133170 
026106 
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T 15 ERROR CODES 


RRA REAERAEEAEAEEEEAERAAERAAEAERARERAEAEAEREARAAAAAEAAEAEEAEEEEEREEEE 


te 
BEGIN TEST 15 = ERROR CODES 


 esURERORENENANREROENERENSEERRNEARERNRACOERRNEEEEANORNORBESORNASENENREER 


3 (ITERATION COUNT = 10.) 


GENERATE ALL ERROR CODES NOT TESTED ELSEWHERE IN THE PROGRAM 
AND POSSIBLE TO GENERATE WITH SOFTWARE. CHECK FOR THE RETURN 
OF THE APPROPRIATE ERROR CODE. 


(Ties ee te Be Oe 


ERCODS: COMBEG 
JSR PC,TSTGO ; TITLE. 
JSR PC ,DPRESET ; DO SOFT INIT. 


1$: 
; TEST MPE = MEMORY PROTECTION (MAIN SEGMENT). 
BGNSEG 2 SRKRKR KKK KEKE KKK KKK KKK <<< BEGIN SEGMENT. 


INI TDP 
SR PC, DPINIT : GO DO SOFT INIT, CHECK THE STATE. 
WIDSRA #170000,MPM * LIMIT MAIN SEG TO 4k 
MOV F1700006-C17: The aDSR 
V #°0177400! JOKCKIN! JOKER. INTMASK PRIME FLAG, EXPECT ERR 
DPSTART #ECMP: ; FORCE RPE ON MAIN SEGMENT 
MOV WECMPE1,aDPC =; START TH 
JSR PC, WAITF + WAIT FOR DISPLAY 
TSTB  —s INT FLAG ; DID WE GET THE EXPECTED ERROR INTERRUPT? 
BEQ 10$ : BR IF YES. 
V #.-12,R1 : NO. SO GET PC FOR ERROR REPORT, 
Ae HRDERR NTO, INTERR + ... AND REPORT THE PROBLEM. 
MOV #MPE RI 
RDDSRA CSR,R2 
MOV #SELCSR,@DSR =; READ CSR INTO R2. 
IFERROR ECE,CSRER 
CMP R1.R2 3 OK? 
BEQ 64 : YES. 
sot HRDERR ECE,CSRER, > NO. 


ENDSEG 2 SKKK KKK KEE K KEKE KKK KKK KKK END SEGMENT. 
; TEST MPE = MEMORY PROTECTION (AUXILIARY SEGMENT). 


tpi 2 SERRE KEKE REE BEGIN SEGMENT. 
JSR INIT : GO DO SOFT INIT, CHECK THE STATE. 
WIDSRA 4170000 

MOV #1 700006-C17! SETXPM, aDsR 


PP IL tard | i . INTMASK 


Vv 
DPSTART #ECMPE2 CE MPE ON AUXILIARY SEGMENT. 


; PRIME FLAG, EXPECT ERR 


SEQ 0127 
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eee TEST 15 ER 

047652 012777 052424 133152 MOV WECMPE2,@DPC =; START THE DPU. 

047 004737 027454 JSR PC, WAI TF : WAIT FOR DISPLA 
4790 047664 105737 026107 TSTB INTFLAG : DID WE GET THE EXPECTED ERROR INTERRUPT? 
4791 047670 00141 BEQ : BR IF YES. 
4792 047672 012701 047660 MOV Sor : NO. SO GET PC FOR ERROR REPORT, 
4793 047676 a HRDERR NTO ATER : «2. AND REPORT THE PROBLEM. 
4795 047716 012701 114003 MOV #MPE RI 

0477 RDDSRA CSR,R2 

047722 012777 000003 133104 MOV MSELCSR,@DSR =; READ CSR INTO R2 . 

047730 017702 133100 MOV R.R 
4797 047736 IFERROR ECE,CSRER 

047734 020102 CMP R1,Re : OK? 

047736 001410 BEQ 65 : YES. 

047740 HRDERR ECE,CSRER, > NO. 

047760 65$: 
4798 047760 ENDSEG 5 SRR R EEE E EEE K KKK END SEGMENT. 
4799 047762 005737 002502 TST DPUMOD ; IN DPU-MODE ONLY? 
4800 047766 001132 3$ : BR IF YES -- T DO READBACK 
4801 ; TO CHECK FOR WRITE-PROTECT VIOLATIONS. 
4805 : TEST MPE = MEMORY WRITE PROTECTION (MAIN SEGMENT). 
4805 047770 BGNSEG 
4806 047772 INI TDP 

047772 004737 025402 JSR PC, DPINIT 3 GO DO SOFT INIT, CHECK THE STATE. 
4807 047776 WTDSRA MPM > SET MAIN-SEG WRITE PROTECT 

047 012777 001015 133030 V #B1T96°C17!SETMPA, aDSR 
4808 050004 INTSET 

05 012737 177604 026106 V #7017700! LOKCKIN! LOKERR, INTMASK PRIME FLAG, EXPECT ERR 
4809 050012 DPSTART #ECMP : FORCE MPE BY TRYING DMA READBACK 

050012 012777 052436 133012 V #ECHPES @DPC =; START THE 

050020 737 027454 JSR PC, WAITF ; WAIT FOR DISPLAY STOP. 
4810 050024 105737 026107 TSTB. ~—s INT FLAG : DID WE GET THE EXPECTED ERROR INTERRUPT? 
4811 050030 001412 BEQ 12s : BR IF YES. 
4812 050032 012701 050020 MOV -12,R : NO. SO GET PC FOR ERROR REPORT, 
4813 050036 HRDERR NiO. CARERR : ... AND REPORT THE PROBLEM. 
4814 050056 12$: 
4815 050056 012701 114003 MOV #MPE RI : SET EXPECTED ERROR CODE ‘MPE"’ 
4816 05 RDDSRA CSR,R2 

05 012777 000003 132744 MOV #SELCSR.@DSR =; READ CSR INTO R2. 

050070 017702 132740 MOV : 
4817 050074 IFERROR ECE,CSRER 

050074 020102 CMP R1.R2 3 OK? 

050076 001410 BEQ 66 * YES. 

050100 HRDERR ECE,CSRER, NO. 

050120 66$: 
4818 050120 ENDSEG 
1820 
4821 ; TEST MPE = MEMORY WRITE PROTECTION (AUXILIARY SEGMENT). 
4823 050122 BGNS 
4824 050124 INIT 

4 004737 025402 JSR PC, bP INIT : GO DO SOFT INIT, CHECK THE STATE. 

4825 050130 UTDSRA #BiT9 SET AUX-SEG WRITE PROTECT 

050130 012777 001017 132676 MOV 1 a a@DSR 


SEQ 0128 


eee 





4842 050254 
4843 050256 


4852 050340 
050340 


050346 
4853 050352 
050352 


0 
4854 050376 
4855 
4856 
4857 
4858 050400 
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ERROR C SEQ 0129 
INTSET ERR 
012737 177604 026106 MOV I Ne a aatatgead bal INTMASK PRIME FLAG, EXPECT ERR 
DPSTART #ECMPES : FORCE MPE BY TRYING DMA READBACK 
012777 052452 132660 MOV #ECMPES ,aDPC 3; START THE rey 
737 027454 JSR PC ,WAITE ; WAIT FOR DISPLAY STOP 
105737 026107 TST8 INTFLAG : DID WE GET THE AEXPECTED ERROR INTERRUPT? 
001412 BEQ 13$ ; BR IF YES. 
012701 050152 MOV #.-12,R1 ; NO. SO GET PC FOR ERROR REPORT, 
138 HRDERR NTO, INTERR 3 «+. AND REPORT THE PROBLEM. 
012701 114003 “MOV #MPE RI : SET EXPECTED ERROR CODE ‘MPE" 
RDDSRA CSR,R2 
012777 000003 132612 MOV #SELCSR,@DSR ; READ CSR INTO R2 . 
017702 132606 MOV R, 
IFERROR ECE,CSRER 
020102 CMP R1,R2 3; OK? 
00141 BEQ 67 ; YES. 
HRDERR ECE,CSRER, ; NO. 
67$: 
ENDSEG 
3$: 
; TEST RSVDOP = RESERVED OPCODE (ILLEGAL INSTRUCTION) 
BauseG br RRR EEE EEE KEKE K KKK KKK KKK BEGIN SEGMENT. 
004737 025402 + sf -DPINIT ; GO DO SOFT INIT, CHECK THE STATE. 
012737 177604 026106 1] al maaan INTMASK PRIME FLAG, EXPECT ERR 
DPSTART #ECRSV1 3s START peu ON ILLEGAL INSTRUCTION. 
012777 052466 132534 #ECRSVI, —s 3 START THE 
004737 027454 JSR PC ,WAITF 3; WAIT TOR DISPLAY STOP. 
105737 026107 TSTB INTFLAG ; DID WE GET THE EXPECTED ERROR INTERRUPT? 
001412 BEQ 148 ; BR IF YES. 
012701 050276 MOV #.-12,R1 ; NO. SO GET PC FOR ERROR REPORT, 
148 HRDERR NTO, INTERR 3 ee. AND REPORT THE PROBLEM. 
012701 124003 : v #RSVDOP RI 
RDDSRA CSR,R 
012777 000003 132466 MOV #SELCSR,@DSR ; READ CSR INTO R2 . 
017702 132462 MOV * 
IFERROR ECE,CSRER 
020102 CMP R1,R2 3 OK? 
001410 BEQ 68 ; YES. 
68s HRDERR ECE,CSRER, : NO. 
. ENDSEG 2 KRKKR KEKE EEE K KKK KKK << END SEGMENT. 
; TEST RSVDOP = ODD Y COORDINATE (BIT 0 SET) 
porses 3b RRR K KKK KKK KKK KK KKK KK KKK KKK BEGIN SEGMENT. 
004737 02540 JSR PC,DPINIT GO DO SOFT INIT, CHECK THE STATE. 
012777 000113 132420 a #ENECHK !URTCSR, vabsr TENABLE RSVD-OP ERROR CHECKING. 
012737 177604 026106 Vv #*0177400! IOKCKIN! IOKERR, INTMASK 3; PRIME FLAG, EXPECT ERR 


ee ee ee 
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eee TEST ERPOR C SEQ 0130 
4862 05042 DPSTART PECRSV START “* ON ODD Y VALUE. 
0504 012777 052472 132402 MOV aDPc : START T HE DPU. 
0504 004737 027454 JSR ; WAIT FOR DISPLAY STOP. 
3 0504 105737 026107 TST8 infPtae. ; DID WE GET THE EXPECTED ERROR INTERRUPT? 
4864 050440 001412 BEQ ; BR IF YES. 
4865 050442 012701 050430 MOV 3S 2k ; NO. SO GET PC FOR ERROR REPORT, 
4866 050446 HRDERR ATO SATERR 3 «2. AND REPORT THE PROBLEM. 
4867 050466 15$: 
4868 050466 012701 124103 MOV #RSVDOP ! ENECHK,R1 
4869 050472 RDDSRA CSR,R 
050472 012777 000003 132334 MOV #SELCSR,aDSR ; READ CSR INTO R2 . 
050500 017702 132330 MOV aDsR, 
4870 050504 IFERROR ECE,CSRER 
050504 020102 CMP R1,R2 3; OK? 
050506 001410 BEQ 698 : YES. 
050510 HRDERR ECE,CSRER, 3 NO. 
050530 69$: 
rr 4 050530 ENDSEG y KKK KEKE KEKE KEKE KKK KKK KKK END SEGMENT. 
iS 3; TEST RSVDOP = ODD X VALUE (BIT 0 SET) 
4875 050532 SEG b KKKK KEK KEKE KKK KKK KKK KCK BEGIN SEGMENT. 
4876 050534 INI TDP 
004737 025462 JSR PC, NIT GO DO SOFT INIT, CHECK THE STATE. 
4877 050540 012777 000113 132266 Vv DEAE CHK TURTCSR. absr 7 ENABLE RSVD-OP ERROR CHECKING. 
4878 050546 INTSET ERR 
050546 012737 177604 026106 V #°0177400! IOKCKIN! IOKERR, INTMASK PRIME FLAG, EXPECT ERR 
4879 050554 DPSTART #ECRSV3 START DPU ON ODD X V VALUE. 
050554 012777 052502 132250 V SECRSVS aDPC : START THE 
050562 737 027454 JSR PC ,WAITF ; WAIT FOR DISPLA 
880 050566 105737 026107 TSTB INTFLAG : DID WE GET THE EXPECTED ERROR INTERRUPT? 
4881 050572 001412 BEQ at ; BR IF YES. 
4882 050574 012701 050562 MOV 510,R RI : . AR GET PC FOR ERROR REPORT, 
3 B20608 168 HRDERR NTO INTERR : REPORT THE PROBLEM. 
4885 050620 012701 124103 MOV #RSVDOP! ENECHK,R1 
4886 050624 RDDSRA_ CSR.R 
050624 012777 000003 132202 MOV #SELCSR,@DSR : READ CSR INTO R2 . 
050632 017702 132176 MOV . 
4887 050636 IFERROR ECE,CSRER 
050636 020102 CMP R1,R2 3; Ok? 
050640 001410 BEQ 70 : YES. 
050642 HRDERR ECE,CSRER, 3 NO. 
050662 70$: 
sees 050662 ENDSEG b KKKKK KEKE KKK KKK KKK KKK KKK END SEGMENT. 
4890 : TEST SEQERR = SEQUENCE ERROR (DJMS FROM SUBROUTINE) 
4892 050664 BGNSEG 5 KKRKKK KKK KKK KK KKK KKK KKK KKK BEGIN SEGMENT. 
4893 050666 INITDP 
05 004737 025402 JSR PC,DPINIT ; GO DO SOFT INIT, CHECK THE STATE. 
4894 05067 INTSET ERR 
190s 030674 012737 177604 026106 . #°0177400! IOKCKIN! IOKERR, INTMASK : PRIME FLAG, EXPECT ERR 
050700 012777 052512 132124 MOV mECSEQN aDdPC ; START THE DPU 
050706 004737 027454 JSR PC, WAI TE WAIT FOR Disp LAY STOP. 
4896 050712 105737 026107 TSTB INTFLAG ‘DID WE GET THE EXPECTED ERROR INTERRUPT? 





11 
VSV11/VS11_== GRAPHIC SYS. DIAG MACRO M1113 28-OCT-81 11:23 PAGE ae} 
ERROR CODES 


eee TEST 15 


4897 050716 


4903 050762 


4905 
4906 
4907 
4908 051010 
4909 051012 
051012 
4910 051016 
051016 
4911 051024 
051024 
051032 
4912 051036 
4913 051042 
4914 051044 
4915 051050 
4916 051070 
4917 051070 
4918 051074 
051074 
051102 
4919 051106 
051106 
051110 
051112 
051132 
4920 051132 
4921 
4922 
4923 
4924 
4925 051134 
4926 051136 
051136 
4927 051142 
051142 
4928 051150 
051150 
051156 
4929 051162 
4930 051166 
4931 051170 
4932 051174 
4933 051214 


001412 
012701 
012701 


012777 
017702 


020102 
001410 


004737 
012737 
012777 
004737 
105737 
001412 
012701 

012701 


012777 
017702 


020102 
001410 


050706 


120003 


000003 
132052 


025402 
177604 
052530 
027454 
026107 


051032 


120003 


000003 
131726 


025402 
177604 
052576 
027454 
026107 


051156 


132056 


026106 
132000 


131732 


026106 
131654 


17$: 


71$: 


BEQ 
MOV 
HRDERR 


MOV 
RDDSRA 
MOV 
MOV 
IFERROR 
CMP 
BEQ 
HRDERR 
ENDSEG 


; TEST SEQERR - 


18$: 


72$: 


MO 
HRDERR 


MOV 
RDDSRA 
MOV 
MOV 
IFERROR 
CMP 
BEQ 
HRDERR 
ENDSEG 


; TEST SEQERR - 


19$: 


MOV 
HRDERR 


SEQ 0131 
17$ ; BR IF YES. 
#.-12,R1 3 ss $O GET PC FOR ERROR REPORT, 
NTO, INTERR 3 . AND REPORT THE PROBLEM. 
#SEQERR,R1 
CSR, 
#SELCSR,@DSR ; READ CSR INTO R2 . 
aDSR,R 
ECE.CSRER 
R1,R2 3; OK? 
71 3; YES. 
ECE,CSRER, 3; NO. 


5 MRK R RRR KEE E KKK KKK K KKK << END SEGMENT. 
SEQUENCE ERROR (CHARACTER DATA IN CHAR. SUBROUTINE) 


5 SRKK RRR EERE KKK K KKK <<< BEGIN SEGMENT. 
a ; GO DO SOFT INIT, CHECK THE STATE. 
cette ee Fen Cn En SOREER, ~ INTMASK ; PRIME FLAG, EXPECT ERR 
4 ing f aDPC : START THE DPU. 
PC ,WAITF : WAIT FOR DISPLAY STOP. 
ras ; ele We ee GET THE EXPECTED ERROR INTERRUPT? 
#.-12,R1 : NO. SO ei PC FOR ERROR REPORT, 
NTO, INTERR 3 «ee AND REPORT THE PROBLEM. 
MSEQERR,R1 
CSR,R 
#SELCSR,@DSR ; READ CSR INTO R2 . 
ECE, CSRER 
R1,R2 3 OK? 
72 3; YES. 
ECE.CSRER, 3; NO. 


3b hRK RRR K KKK KKK KKK KKK KKK <<< END SEGMENT. 


SEQUENCE ERROR (DJMS IN CHARACTER SUBROUTINE) 


2 KKKK KKK KEKE KKK KKK KKK KKK <<< BEGIN SEGMENT. 
PC DPINET : GO DO SOFT INIT, CHECK THE STATE. 
OR ees - INTMASK ; PRIME FLAG, EXPECT ERR 
#ECSEQS,aDPC : START THE on 
PC WAITF ; WAIT FOR DISPLAY STOP. 
i 3 DID ve GET THE AEXPECTED ERROR INTERRUPT? 
-12,R1 ; =. 2 GET PC FOR ERROR REPORT, 
NTO-INTERR 3 AND REPORT THE PROBLEM. 


_—_—_— SS 
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eee TEST 15 ERROR CODES SEQ 0132 


012701 120003 a $y lea 
012777 000003 131606 MOV WSELCSR,@DSR : READ CSR INTO R2 . 
017702 131602 MOV @DSR,R 

IFERROR ECE,CSRER 


020102 CMP R1Ro : OK? 
001410 BEQ 738 : YES. 
v- HRDERR ECE,CSRER, > NO. 


ENDSEG 5 SRK KKK END SEGMENT. 


VAM 
ad dd td od 
NNACOL 


. ee ea 
2s 
o 
Soooococoooo 
Ww wa 
wi Iw 
sae BUNT a 
&* ™ 


vw 
ao 


4940 ; TEST SEQERR = SEQUENCE ERROR (BIT-MAP-0 IN SUBROUTINE) 


4941 
4942 051260 BGNSEG 2 KKK RRR EERE ERK KKK KKK KKK KKK BEGIN SEGMENT. 
4943 051262 INI TDP 
0 2 004737 025402 JSR PC,DPINIT ; GO DO SOFT INIT, CHECK THE STATE. 
4944 051266 INTSET 
051266 012737 177604 026106 MOV #°0177400! IOKCKIN! IOKERR, INTMASK ; PRIME FLAG, EXPECT ERR 
4945 051274 DPSTART 
0 4 START THE DPU. 


m 
Amn 3D 
oow 


5 012777 052630 131530 MOV WECSEQ4 ,aDPC ; 

05 004737 027454 JSR ,WAITF : WAIT FOR DISPLAY 

4946 051306 105737 026107 TSTB INTFLAG ; DID WE GET THE ExBecTéD ERROR INTERRUPT? 
7 051312 001412 BEQ 3 $ ; BR IF YES. 
8 051314 012701 051302 MOV #.-12,R1 ; NO. SO GET PC FOR ERROR REPORT, 
4949 051320 HRDERR NTO,INTERR 3 «e- AND REPORT THE PROBLEM. 
4950 051340 20$: 
4951 051340 012701 120003 MOV #SEQERR,R1 
4952 051344 RDDSRA_ CSR, 
012777 000003 131462 MOV #SELCSR,@DSR 3; RFAD CSR INTO R2 . 

051352 017702 131456 MOV aDsR, 
4953 051356 IFERROR ECE,CSRER 

051356 020102 CMP R1,R2 3; OK? 

051360 001410 BEQ 74$ : YES. 

051362 HRDERR ECE,CSRER, 3 NO. 

051402 74$: 
$238 051402 ENDSEG 2 SRKK KKK EEE K KKK KKK KKK END SEGMENT. | 
4956 
$320 ; TEST SEQERR - SEQUENCE ERROR (BIT-MAP-1 IN SUBROUTINE) 
4959 051404 SEG 3 KKK RRR KKK KEK K KKK KKK KKK <<< BEGIN SEGMENT. 
4960 051406 INITDP 

021298 004737 025402 JSR PC, DPINIT ; GO DO SOFT INIT, CHECK THE STATE. 
4961 05141 INTSET ERR 

051412 012737 177604 026106 MOV #°0177400! IOKCKIN! IOKERR, INTMASK ; PRIME FLAG, EXPECT ERR 
4962 051420 DPSTART #ECSEQ5S 

051420 012777 052654 131404 MOV #ECSEQ5S ,aDPC ; START THE rey. 

051426 004737 027454 JSR PC ,WAITE ; WAIT FOR DISPLAY STOP 
4963 051432 105737 026107 TSTB zi 3; DID WE GET SHES EXPECTED ERROR INTERRUPT? 
4964 051436 001412 BEQ r IF YES. 
4965 051440 012701 051426 MOV -12,R1 : NO. SO GET PC FOR ERROR REPORT, 
4966 051444 HRDERR NTO INTER 3 «ee AND REPORT THE PROBLEM. 
pis 4 051464 21$: 

021666 012701 120003 MOV MSEQERR,R1 
4969 051470 RDDSRA CSR.R2 

051470 012777 000003 131336 MOV #SELCSR,@DSR ; READ CSR INTO R2 . 











11 
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eee TEST E 


= 
oO 
“N 
oO 


15 
1 
1 
1 
1 
1 
1 
1 


Soooo°oo 
AAAI 


SOOoOoCooooooooooooooo 
AA Ab AL AD ALAA AL AL AL AL AL AL AL AL AL AL AL Ab eal 
at nd at a 

QUIN & & 


$3333 


4992 

4993 051654 

4994 051656 
1656 

4995 051662 


4996 051670 


ERROR CODES 


017702 


020102 
001410 


004737 


020102 
001410 


012777 
017702 


020102 


131332 


025402 
177604 
052676 
027454 
026107 


051552 


120003 


000003 
131206 


025402 
177604 
052726 
027454 
026107 


051676 


120003 


000003 
131062 


026106 
131260 


131212 


026106 


131134 


131066 


75$: 


MOV 
IFERROR 
CMP 
BEQ 
HRDERR 
ENDSEG 


: TEST SEQERR - 


228: 


76$: 


M 
HRDERR 
MOV 
RDDSRA 
MOV 
MOV 
IFERROR 
CMP 
BEQ 
HRDERR 
ENDSEG 


: TEST SEQERR - 


238: 


BGNSEG 
INI TDP 


JSR 
INTSET 
DPSTART 
MO 


MOV 
HRDERR 
MOV 
RDDSRA 
MOV 


MOV 
IFERROR 
CMP 


@aDSR,R2 
ECE ,CSRER 


7 
ECE,CSRER, 


SEQ 0133 


: OK? 


YES. 
0. 


5 RRR REE EERE EEK KKK END SEGMENT. 


SEQUENCE ERROR (DMA READBACK FROM SUBROUTINE) 
2 KKKK KKK KKK KKK K KKK KKK KKK BEGIN SEGMENT. 


PC,DPINIT 


ERR 
SSS wageeri— aamrectanmaa 


+ eng aDPC 
C,WAITF 

INTFLAG 

$ 

#.-12,R R1 
NTO, INTERR 
MSEQERR,R1 
#SELCSR,@DSR 
aDSR,R 
ECE, CSRER 
R1,R2 


76 
ECE,CSRER, 


: PRIME FLAG, EXPECT ERR 


; START THE DPU. 
; WAIT FOR DISPLAY STOP. 
SB ie vee. THE EXPECTED ERROR INTERRUPT? 


; Sows SO GET PC FOR ERROR REPORT, 


- AND REPORT THE PROBLEM. 


READ CSR INTO R2 . 


5 RRR RRR KERR KKK KKK KKK KKK END SEGMENT. 


| 
; GO DO SOFT INIT, CHECK THE STATE. 


SEQUENCE ERROR (ILLEGAL DMA READBACK RESTART) 
2 KKK RRR K KEKE KEKE KKK KKK <<< BEGIN SEGMENT. 
: GO DO SOFT INIT, CHECK THE STATE. 


PC DPINIT 


Zo 0172500! LOKCKIN! JOKERR. INTMASK 
; START THE 


WECS 

FEC SEQ? apPc 
PC, WAI TF 
INFFLAG 

3$ 
#.-12,R1 
NTO, INTERR 
#SEQERR, R1 
ase CSR, aDsR 


ECE hen 
creas 


eRe 
~ 


; PRIME FLAG, EXPECT ERR 


ae 
3 WAIT FOR DISPL 
; DID WE 
; BR 


Y STOP 
GET THE EXPECTED ERROR INTERRUPT? 


; IF YES. 
; ae SO GET PC FOR ERROR REPORT, 


- AND REPORT THE PROBLEM. 


READ CSR INTO R2 . 


OK? | 


ae 
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eee TEST 15 ERROR CODES SEQ 0134 


5009 052000 
5010 052002 
5011 052006 
5012 052014 

2014 


5021 052122 
5022 
5023 
5024 
5025 052124 


aouww 
MS & 


NS ans 
RUNSRO 


36 
5037 052214 
5038 052216 
036518 
5039 052222 
5040 052250 


001410 


004737 
012737 
012777 

7 


012701 


012701 


012777 
017702 


020102 
001410 


= 
-S 
a— 
— 


025402 
177604 


052754 
027454 
026107 


052022 


140003 


000003 
130736 


025402 
026106 
040000 
027454 
150003 


000003 
130646 


025402 
040000 
027454 


026106 
131010 


130742 


130672 


130652 


130610 


BEQ 
HRDERR 
ENDSEG 


; TEST SYNCTO = 


24$: 


78$: 


MOV 
IFERROR 
CMP 
BEQ 
HRDERR 
ENDSEG 


; TEST DRDYTO - 


79$: 


RDDSRA 
MOV 
IFERROR 
CMP 
BEQ 
HRDERR 
ENDSEG 


77$ 
ECE,CSRER, 


: YES. 


3 KKK KEE EKER KEKE KKK KKK END SEGMENT. 
SYNC TIMEOUT FROM IMAGE MEMORY. 

3 KKKKKKK KEKE KKK KKK K KKK KKK BEGIN SEGMENT. 
3 GO DO SOFT INIT, CHECK THE STATE. 


PC ,DPINIT 


m 
m 3m 
oon 


#ECSTO, aDPC 
PC, WAITF 
INTFLAG 
24$ 
#.-12,R1 
NTO, INTERR 
#SYNCTO,R1 


CSR.R 
#SELCSR,@DSR 


aDsR, 
ECE, CSRER 
R1,R2 

78$ 

ECE, CSRER, 


2 Opps sesame . INTMASK 


: PRIME FLAG, EXPECT ERR 


START THE Foha 
; WAIT FOR DISPLAY STOP. 
SB inves. THE EXPECTED ERROR INTERRUPT? 


ES 
; _ SO GET PC_FOR ERROR REPORT, 


- AND REPORT THE PROBLEM. 


READ CSR INTO R2 . 


; OK? 
> YES. 


2 KKK KKK KKK KKK KKK KKK KKK <<< END SEGMENT. 
DATA READY TIMEOUT ON CURSOR READBACK 


a3 DPINIT 


#DRDYTO,R1 


aa Sagsanz 
2 = 


SR, 
ECE ,CSRER 
R1,R2 


79 
ECE.CSRER, 


NTMASK 
oe tart ,@DXR 


oR 
#SELCSR,@DSR 


; GO DO SOFT INIT, CHECK THE STATE. 
; SAY READ PENDING COORDS (BUT THERE ARE NONE) 


WAIT F ADY 
set ae Hy ERROR CODE ‘DRDYTO'’ INTO R1 
READ CSR INTO R2 . 


OK? 
YES. 
NO. 


; TEST DAVTO = DATA AVAILABLE TIMEOUT PIXEL READBACK. 
3 KRKRKK KKK ERK KEKE KK KKK KKKK< BEGIN SEGMENT. 


+ GO DO SOFT INIT, CHECK THE STATE. 
; PROTECT ALL MEMORYS. 


PC, DPINIT 
44.000 000 ,aDvR 


xen 


TEST 1 


COSCO C COCO OCC OOCCO 
MAMA UI UU 
SSSNSSNE RY 

OOaR RON NASHOWe 


GASES EAS 


052402 
052406 
5057 052412 
5058 
5059 
5060 
5061 
2068 052416 
506 
5064 
5065 
5066 
5067 052420 
5068 052422 
5069 
5070 052424 
5071 0394 0 
5074 
5075 052436 
5076 052440 
5077 052450 
5078 
5079 052452 
5080 052454 
5081 052464 


5083 0524 
5084 052470 


ERR 

ger 
012777 
004737 
012777 
004737 
012777 


004737 
103410 


012701 


012777 
017702 


020102 
001410 


040400 


027454 


144003 


000003 
130470 


027646 


047476 
030072 


052433 


000001 


000001 


130576 
130564 
130552 
130536 


130474 


000001 


000001 


2s: 


80$: 


81$: 
82$: 
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MOV #40400 ,aDYR 


MOV #41000, aDYR 
JSR 

MOV #41400, aDYR 
JSR PC ,WAITF 
MOV #0, aDXR 

JSR PC.WAITF 
BCS $ 

DFERR PRBH 

MOV #DAVTO,R1 
RDDSRA CSR, 

V #SELCSR,@DSR 
MOV aDsR, 
IFERROR ECE,CSRER 
CMP R1.R2 
BEQ 80 
HRDERR ECE,CSRER, 
ENDSEG 
COMEND 1$ 
JSR PC, LOOP 
BCS 81$ 
BR 82$ 
JMP 1$ 
JSR PC, TSTEND 
EXIT TST 


: INTERUPT SERVICE FOR THIS TEST. 


ECISVC: 


RTI 


+ DISPLAY FILES. 


ECMPE1: 


ECMPE2: 


1$: 


ECMPE3: 


ECMPE4: 


ECRSV1: 


DNOP 

STOPN 
DJMS , 1$! AUXSEG 
STOPN 

DNOP 

STOPN 

MREAD 

1,1,160000 


MREAD 
1,1, 160000! AUXSEG 


TRY PIXEL READ. 

BRANCH IF UNSUCCESSFUL. 
PIXEL READBACK HUNG UP. 
READ CSR INTO R2 . 


OK? 


: YES. 


5 KRRK KEE REE KKK KKK KKK KKK END SEGMENT. 


REPEAT ‘TIL LOOPER EXPIRES. 


PRINT ERROR SUMMARY, IF REQ'D. 


: EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 


; RETURN FROM INTERUPT. 


MPE - MEMORY PROTECTION ERROR. 
- ON MAIN SEGMENT 


CALL AUXILIARY SEGMENT 
SHOULD GET MPE ERROR 


TRY _DMA_READBACK 
-»-TO WRITE PROTECTED MAIN SEG. 


TRY DMA READBACK ... 
-+-TO WRITE-PROTECTED AUX SEG. 


RSVDOP = RESERVED OPCODE. OPERATION. 


SEQ 0135 
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T 15 RROR CODES 


eee TES E SEQ 0136 
5085 
5086 052472 114000 000000 000001 ECRSV2: APNT,0,1 : RSVDOP = ODD Y VALUE. 
2087 052500 173000 STOPN 
5089 052502 114000 000001 000000 ECRSV3: APNT,1,0 : RSVDOP = ODD X VALUE. 
2090 052510 173000 STOPN 
5092 052512 10001 052520 ECSEQ1: DUMS,1$ ; SEQERR - SEQUENCE ERROR. 
5093 052516 173000 STOPN 
5094 052520 160001 052524 1$: DJMS ,2$ :DJMS FROM SUBROUTINE. 
5095 052524 173000 2$: STOPN 
5096 052526 173000 STOPN 
5098 052530 114000 000000 000000 ECSEQ2: APNT.0,0 : SEQERR. 
5099 052536 152000 052550 SETCB, 2$ 
5100 052542 103774 CHAR! ALL 
5101 052544 000 1$: 0 
5108 052546 173000 STOPN 
5103 052550 000000 2$: 0 ;DATA AS 1ST WORD == STILL IN CHAR MODE. 
5104 052552 000000 000000 000000 0,0,0,0,0,0,0,0 
5105 052572 165000 DPOP 
3106 052574 173000 STOPN 
5108 052576 114000 000060 000000 ECSEQ3: APNT,0,0 : SEQERR. 
5109 052604 152000 052616 SETCB,2$ 
5110 052610 103774 CHAR! ALL 
5111 052612 000000 1$: 
5112 052614 173000 STOPN 
5113 052616 160001 052624 2$: DUMS, 3$ :DJMS IN CHAR SUBROUTINE. 
5114 052622 173000 STOPN 
5115 052624 173000 3S: 
3116 052626 173000 STOPN 
5118 052630 170140 ECSEQ4: CLRMEM : SEQERR. 
5119 052632 114000 000000 000000 APNT,0,0 
5120 052640 160001 052646 DUMS.1$ 
5121 052644 173000 STOPN 
5122 052646 134000 1$: BM04 
5123 052650 052650 2$: 2$ 
5124 052652 173000 STOPN 
5126 052654 114000 000000 000000 ECSEQS: APNT.0.0 : SEQERR. 
5127 052662 160001 052670 DUMS.1$ 
5128 052 173000 STOPN 
5129 052670 136000 1$: BM14 
5130 052672 052672 2$: 2$ 
5131 052674 173000 STOPN 
5133 052676 114000 000000 000000 ECSEQ6: APNT.0.0 > SEQERR. 
5134 052704 160001 052712 DUMS.1$ 
1% o3giie 163000 1$ TMREAD DMA READBACK FROM SUBROUTINE 
5137 ae 000001 1 
5138 052716 000001 1 
5139 052720 000001 1 
5140 052722 052750 ECSO7B 
5141 052724 17 STOPN 
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wee TEST 15 ERROR CODES 


514 
3145 052726 114000 000000 000000 ECSEQ7: APNT.0,0 
$144 052734 162001 IMREAD!1 ;ILLEGAL DMA READBACK RESTART. 
5145 052736 000001 1 
2146 092740 034730 ECSQ7B 
5147 052742 173000 STOPN 
$148 052744 162101 IMREAD! 101 
5149 052746 173000 TOPN 
2190 052750 ECSQ7B: .BLKW 2 
5152 052754 176000 ECSTO: PROTEC! CHO 
5153 052756 176400 PROTEC! CH1 
5154 052760 177000 PROTEC! CH2 
5155 052762 177400 PROTEC! CH3 
5156 052764 114000 040000 000000 APNT 10,0 
5157 052772 173000 STOPN 
5159 052774 END. TEST 
FREER EREE ARERR EREREEEERARERAEREREREEREEEREREEEE 
** 
i END TEST 15 
* 


—MmARRESASALEALLLALALALLASAAS ALE L ELE ARAL ELAR ASAE REESE RSET EEE REAR RE REE ER ES 





SEQ 0137 
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wee TEST 16 ADDRESS RELOCATE SEQ 0138 


5161 


SRA AEREAAAAEREAAEREEAEAAAEEEAAAEAAAAAEAAREEAEEEREERAAAEAERAEREEREEEEEKEEE 


ot 
s* BEGIN TEST 16 <= ADDRESS RELOCATE 
;* 


SRE AAERAEAAEEEERERAERAAERAAAEAAEEEKEEERAREREREREREEEREREREEREEEEE 


; (ITERATION COUNT = 20.) 


| 
| 
5 ; 
5 ; TEST ALL COMBINATIONS OF DPC AND RELOCATE FACTOR | 
5 3 WHERE DPC + REL = RELT1, A LOCATION WITHIN THE PROGRAM | 
5 : TEST RELIES OF THE FACT THAT (DPC + REL) > 18 BITS WILL 
5 3 WRAP AROUND IN THE FINAL DPC. | 
é ; REPEAT i TIMES AFTER QUICK PASS. 
5 053050 RELTST: COMBEG 
053050 004737 027702 JSR PC,TSTGO ; TITLE. 
053054 004737 026074 JSR PC ,DPRESET 00 SOFT INIT 
5170 053060 012737 053274 022300 MOV #20$,EXTA SET ERROR EXTENSION ADDRESS. | 
5171 053066 012777 000000 127740 MOV #SELDSR, aDsR 
5172 053074 017703 127734 MOV | 
5173 053100 042703 176000 BIC aetna? R3 | 
317% 053104 052703 172060 BIS #STOP,RS :...AND STATUS. | 
5176 053110 012704 053322 5$: MOV #RELT SET INITIAL DPC 
5177 053114 012702 053324 MOV oREc Taso. R2 zSET INITIAL EXPECTED DPC 
2178 053120 012705 000014 MOV #SETMRR!0,R5 zSET INITIAL RELOCATION (0) | 
gia 053124 1$: BGNSEG 5 KKKKKKK KKK KKK KEKE KK KKKKKKK BEGIN SEGMENT. | 
| 
5182 053126 010577 127702 MOV R5.aDRR zSET 1ST (NEXT) REL VALUE.. 
5183 053132 010477 127674 MOV R4,aDPC t...XCT == RELOCATE TO 'RELT1" 
5184 053136 004737 027454 JSR PC ,WAITF 
5185 053142 027702 127664 CMP aDPC,R2 CHECK DPC = R4 (INITIAL) + 2 | 
5186 053146 001003 BNE 
5187 053150 027703 127660 CMP aDSR,R3 y...-AND DSR = STOP+PIXEL DATA. 
5188 053152 001410 BEQ 
5189 053156 2$: HRDERR RELF,PCSERR ;RELOCATE uPAILURE., 
5190 053176 004737 026756 3$: —° JSR PC RELEAS 3IN CASE HE ‘HUNG WHERE. 
213) 053202 ENDSEG : senenibbaaharhoatenatenees END SEGMENT. 
5193 053204 020527 177774 CMP RS, SSETRORITTTIOD zMAX RELOCATION DONE? 
3194 053210 001414 BEQ 4$ ALL DONE I 
5196 053212 062705 000020 - ADD #B1T4,R5 ;BUMP RELOCATION BY 1 (32 WORDS) | 
5197 053216 162702 000100 SUB #100,R2 SREDUCE EXPECTED.. 
5198 053222 162704 000100 SUB #100.R4 3... AND IN NITIAL DPC BY 32 WORDS) 
5199 053226 100336 BPL 1$ CONTINUE ‘TIL WE UNDERFI. 
5200 053230 005705 TST R5 [SEE IF ALREADY FORCED HiGH BITS 
5201 053232 100734 BMI 1$ :JUST CONTINUE IF YES 
5202 053234 052705 140000 BIS #140000,R5 [FORCE HIGH RELOCATION BITS 
203 53240 000731 BR 1$ t...THEN CONTINUE | 
53242 4$: LOOPTO 5$ ; REPEAT ‘TIL LOOPER EXPIRES. 
53242 004737 027646 JSR PC,LOOP 
53246 103720 BCS 5$ 


3 


Ses 


PAPA AAAI AAI 


roronoreronefonofory 
Ok ad ad 8 od 


WONAUEWIN—O 





000207 


173000 
173000 
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ADDRESS RELOCATE 


012777 000014 1 
012777 000000 1 
004737 03007 


MOV MSETMRR!0,@DSR ; INSURE RR IS 0 
MOV 4 at 3++eAND DSR IS SELECTED 


JSR PC, TSTEND 
EXIT TST 


: ON ERROR, SHOW RELOCATE PARAMETERS. 
50s: PRINTX #RELFXRG,RS ; EXTENSION SHOWS RELOC FACTORS. 


;DISPLAY FILE FOR RELOCATE TEST 
RELT1: STOPN 
STOPN 
END. TEST 
CPt iii iii iii iri iii iii iii iiiiiiiitiiiiiiiiiiiiis) 
8 
;* END TEST 16 


° 
® 
e 

—ARAALALALALALALASLALAAAASALEEEL ELAS ELLER SEARS EEE RE RRR ETE RET ST CT TT 


; EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 


K_11 
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eee TEST 17 CHARACTERS SEQ 0140 
5221 
J  RRERAERARAEKAARARAAAEAAAAERAEAAEAAAAKRERAERAARAAAAARAAAEARAERAARAEARAAEREAREKEEAEEEE 
°* 
3* BEGIN TEST 17 = CHARACTERS 
** 
: RAEKAAAAAAAAAAAARAAAAAEARAAAAAAARARAAARARARARAARARAERARARAKARAKARERAEEREEEEE 
3 (ITERATION COUNT = 20.) 
5222 : 
5223 ; USE SETCB, CHAR, AND DPOP AS A SUBROUTINE CALL AND RETURN. 
5224 ; USE ALL ASCII CODES (HI AND LO BYTES) ALTERING THE BASE 
5225 ; ADDRESS SUCH THAT EACH CHAR/BASE COMBINATION YIELDS THE 
5226 3 SAME SUBROUTINE ADDR 
4 : weniry Te DPC AT EACH SUBROUTINE ENTRY AND AGAIN AFTER 
5229 : DO THE TEST FOR BOTH MAIN AND AUXILIARY SEGMENT SPECIFIED IN C-BASE. 
o530 ; REPEAT 20 TIMES AFTER A QUICK PASS. 
5232 ; NOTE THAT AN ERROR WHERE CHAR CODE = -1 IMPLIES THAT 
5233 : CHAR MODE DIDN'T TERMINATE WITH THE FINAL DPOP. 
aSee : IN EVERY OTHER CASE, EXP DPC = SETCB + 2(CC) + 4. 
2539 ; ALSO, ANY ANY fer IMPLIES THAT WE'VE LOST CONTROL AND 
5238 
2520 ; CHAR ARRAY SIZE = 67. WORDS (OPCODE + 128 CHAR + DJMP,RETURN). 
( 


HRTST: COMBEG 


053374 004737 027702 JSR PC, TSTGO : TITLE. 
053400 004737 026074 JSR PC, DPRESET ; DO SOFT INIT. 
053404 012737 054110 054066 MOV #CT.SUB.CHSEG © ;GET INITIAL BASE ADDRESS, MAIN SEGMENT. 
5244 053412 012737 054036 022300 MOV #20$,EXTA i SET ERROR EXTENSION ADDRESS. 
5245 053420 013701 003240 MOV > BUFFER ADDRESS => R1. 
5246 093424 010137 054104 MOV R1,CT.ASC : SET DUMP FREE’ CODE. 
5247 053430 005002 CLR R2° 1ST CHAR CODE => R2 
5248 053432 012721 100000 MOV #CHAR (R1)+ *SET CHAR OPCODE.. 
053436 110221 6$: MOVB ,(RID+ t..eAND 128 CHARACTERS... 
5250 053440 005202 INC 
5251 053442 020227 000200 CMP RS #128. 
5252 053446 001373 BNE 6$ 
5253 053450 012721 160000 MOV ADIMP, (R1)+ y..-AND THE RETURN LINK. 
2654 053454 012721 054106 MOV #CT.RET, (R1)+ 
5256 053460 017703 127350 
5257 053464 042703 176000 BIC weit? R3 
3258 053470 052703 172000 BIS op.R3 :SET EXP DSR FOR ERROR. 
5260 053474 5$: BGNSEG 2 KRKR KEE EEE E KKK KKK KKK KKK BEGIN SEGMENT. 
5261 053476 013737 054066 054100 MOV CHSEG,CT.ASC-4 ;INIT INITIAL BASE ADDRESS. 
S262 053504 013737 054066 054116 MOV CHSEG.CT.BAS :1N NIT BASE ADDRESS IN CHAR SUBTRN, 
3263 053512 005001 CLR R1 -R1 = CURRENT CHAR. 
5265 053514 013702 054066 MOV CHSEG,R2 :GET SEGMENT SELECTOR 
5266 053520 042702 177776 BIC #*CAUXSEG,R 3.+-FOR DPC READBACK 
5267 $3 3250 052702 054114 BIS #CT.SUB+4.R :..-AND SET EXPECTED DPC. 
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eee TEST 17 CHARACTERS SEQ 0141 


=) 





5268 053530 012777 054070 127274 V #CT, aDPC sSTART, XCT 1ST CHAR. 
5269 825278 Boe es 0000 SKP3 sSKIP OVER RESUME 
5270 053540 01277 127264 1$: MOV #1, aDPC sRESUME, XCT NEXT CHAR. 
5271 053546 00473 Oare3t JSR PC ,WAITF 
3672 053552 027702 127254 CMP @DPC ,R2 ZCHECK DPC = R2 
5273 053556 001410 BEQ § TER ROR IF T S WRONG. 
5274 053560 HRDERR ee PCSERR ;CHAR MODE FAILS. 
5275 053600 013746 003240 2$: MOV FREE ,-(SP) GET START OF MAIN DISPLAY FILE, 
5276 053604 005701 TST a DPOP? 
5277 053606 100003 BPL 15$ :SKIP AHEAD IF NOT. aaa! 
5278 053610 062716 000203 ADD #203, (SP) sSAY PCSAVE IS EMPTY, WITH FINAL ADDRESS. 
5279 053614 000405 SR 16$ 3... THEN GO CHECK IT. @aal 
5280 053616 062716 000004 15$: ADD #4,(SP) 3; ADD by dU FOR FIRST TRIP, 
5281 053622 060116 ADD R1, (SP) 3; AND T CHARACTER, 
asee 053624 042716 000001 BIC #1, (SP) sMAKE EVEN, 2 CHARS/WORD 
5283 0536 012637 023056 16$: MOV (SP)+,GDDAT TEXPECTED DATA FOR PCSAVE 
5284 053634 004737 022360 JSR PC ,PCSCHK 3-.CHECK PCSAVE. 
5285 053640 012737 100000 023056 MOV CHAR ,GDDAT : NOW CHECK FOR "CHAR" OPCODE IN FLAGS 
5286 053646 004737 022410 JSR PC ,FLGCHK ‘ 
5287 053652 012737 023056 MOV #SELCSR,GDDAT ;... AND CSR 
5288 053660 004737 022440 JSR PC, CSRCHK 2 
5289 053664 013737 054116 023056 MOV CT.BAS,GDDAT ;CHECK THE CHARACTER BASE 
5290 053672 004737 022624 JSR PC, CBCHK 3 
253! 053676 CKLOOP ;LOOP ON ERROR. 
2538 053700 005701 TST R1 SHAVE WE — ?? 
5294 053702 100414 BMI 3$ SEXIT IF § 
5295 053704 162737 000002 054116 SUB #2,CT.BAS sNO, DECR Base ADDRESS. 
053712 005201 INC SINCR CHAR COUNT. 
5297 053714 020127 000200 CMP R1,4128. 7128 CHARS DONE ?? 
5 053720 001307 BNE 1$ [LOOP IF NOT. 
5299 053722 012701 177777 MOV #-1,R1 YES, SET TERMINATE FLAG... 
5300 053726 012702 054110 MOV #CT.RET+2,R2 t..eADJUST EXPECTED DPC... 
230) 053732 000702 BR 1$ 3---AND LOOP TO XCT FINAL DPOP. 
5303 053734 3$: ENDSEG : aaa ey ar ye END SEGMENT. 
5304 053736 032737 000001 054066 BIT MAUXSEG, CHSEG O AUX SEGMENT? 
5305 053744 001 BNE r vis. I 
5306 053746 052737 000001 054066 BIS #AUXSEG, CHSEG iNO. S09 DO IT NOW 
5307 053754 BR ;LOOP BACK AFTER serves SEG BIT. aaal 
5308 053756 042737 000001 054066 31S: BIC #AUXSEG, CHSEG :D1D AUX, SO CLEAR THE BIT 
5309 053764 LOOPTO ; REPEAT TIL LOOPER EXPIRES. 
053764 004737 027646 JSR PC,LOOP 
053770 103641 BCS 5$ 
5310 053772 005737 002502 TST DPUMOD ; ARE WE IN DPU-MODE ONLY? 
5311 053776 001013 BNE 40$ ; BR=YES. 
5312 054000 004737 026074 JSR PC ,DPRESET ; DO SOFT INIT. & CHECK STATE 
5313 054004 DPSTART #CHDISP 
054004 012777 056122 127020 MOV SCHDISP aDPC 3; START THE DPU. 
054012 004737 027454 JSR PC, 3; WAIT FOR DISPLAY STOP. 
5314 054016 004737 027514 JSR PC, ree 
5315 054022 004737 027514 JSR PC PAUSE 1 
5316 054026 40$: 
5317 054026 004737 030072 JSR PC, TSTEND 
2318 054032 EXIT TST : EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 
5320 ; ON ERROR, SHOW BASE ADDRESS AND CURRENT CHAR CODE. 
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eee TEST 17 


ron 
Ono 


EG 
ARUN BOCRIRAR UR IOD 
Soo oOo G0O00°0 


EESEESAS 


354 054200 


NNN NN NS 
NOUMUEWMN OO 
S 
w 
Sa 
Ww 
Nm 
o 


054356 





CHARACTE 


-—-o-—- -O — 
| 


ann 


—_> == 
=_= NV 
on Oo 
=> So 
Sz 
a 


— —) oes 

= 
~~ 

ESNSs 


esses 


= 


—— — 
o— 7 
= = 

= — — 

™SS =8S8 S 

Ww o _ 


—s 
— 
™N 

23s 
oon 


——s 
—s 
x 
So 
S 
So 


RS 


176474 
i 
041 
001000 
061 
001000 
073 
001000 
102 
001000 
117 


001000 
134 


001000 
041 
001000 


164000 


177074 


001500 
042 
001400 
001300 
074 
001200 
103 
001100 
120 
001000 
135 


000602 
042 
600502 


20S: PRINTX #CHRFX,CT.BAS,R1 ; ERROR EXTENSION. 


CHSEG: CT.SUB ;CHARACTER BASE CONTROL, WITH SEGMENT SELECT. 
: DISPLAY CODE FOR CHAR MODE TEST. 


CT: DNOP , DNOP , DNOP 
SETCB,CT.SUB z INITIAL BASE ADDR = CT.SUB. 
DJMP :MFER PC TO THE CHAR... 
CT.ASC: 0 3..-DATA ARRAY. 
CT.RET: STOPN sFINAL ‘DPOP’’ SHOULD RETURN HERE 
CT.SUB: .+2 ; SUBROUTINE ENTRY PONNTER. 
STOPN STOP HERE IF CHAR ADDRESSES... 
3---COME OUT RIGHT. 
SETCB :0N RESUME, SET NEW BASE ADDR... 
CT.BAS: CT.SUB 


DPOP 3-.-AND DPOP TO NEXT CHAR. 
; DISPLAY FILE FOR CHARACTER DISPLAY: 
CHDISP: RDWRT!CHO,RDWRT!CH1,RDWRT!CH2,RDWRT! CHS 
:***B =6CLRMEM 
APNT!LO 


SETMEM 
SETCB, ACAT 
rt Sa ac 


ASCII 2 !°WS2B"()ee,-./? 
APNT, 1000, 1400 


C 
eASCII /0123456789/ 
APNT 1000, 1300 

CHAR 


eASCII /:3<=>78 / 

EVEN 

APNT,1000, 1200 

HAR 

eASCII /ABCDEFGHIJKLM / 
EVEN 

APNT,1000,1100 

oy /NOPQRSTUVWXYZ / 
APNT,1000,1000 

HAR 

ASCII /O\I*_ / 

EVEN 


peenB 
peaenB 


APNT!ALL,1000,602 
CHAR 
eASCII] 2 !°WS2B'()e+,-./? 


- EVEN 
APNT,1000,502 


SEQ 0142 


— 








C SEQ 0143 
5378 054364 100000 CHAR 
23/9 054366 060 061 062 “ASCII /0123456789/ 
5380 054400 114000 001000 000402 APNT, 1000,402 
5381 054406 100000 CHAR 
2368 054410 072 073 074 oe /:3<=>?7a / 
5384 054420 114000 001000 000302 APNT, 1000, 302 
5385 054426 100000 CHAR 
3386 054430 101 102 103 “ASCII /ABCDEFGHIJKLM / 
5388 054446 114000 001000 000202 APNT, 1000, 202 
5389 054454 100000 HAR 
3390 054456 116 117 120 ASCII /NOPQRSTUVWXYZ / 
3392 054474 114000 001000 000102 APNT, 1000, 102 
5393 054502 100000 CHAR 
5394 054504 133 134 135 ASCII /C\I*_ / 
5395 “EVEN 
3396 054512 173000 STOPN 
5398 054514 END. TEST 






RRA AAA RAEE AEE RAERERAAARAARAEEAAEEREKEREEE 


fe 
s@ END TEST 17 
* 


RRA RARER REAR AAAAAAEEEAAARARAAAAAAERAAREREAARAEKKEEE ED 
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eee TEST 18 ABSOLUTE POINTS SEQ 0144 

5400 
FERRARA ARAAAAAAEAAAREAAAEEEEERERERAEREEREREERARERREERRAERERERREEERERERRERE 
7% 
:* BEGIN TEST 18 = ABSOLUTE POINTS 
ITITITITITITITITITITITIT IIIT TIT TT ii tii it ititititititi titi titi iti 
3; (ITERATION COUNT = 10.) 

5401 ; 

5402 3; VERIFY THAT WE CAN EXECUTE ABSOLUTE POINTS FOR THE FULL 

rot ts 3; RANGE OF X/Y. 

5405 + PLOT ALL X POINTS, HOLDING Y AT 0. 

406 ; PLOT ALL Y POINTS, HOLDING X T 0. 

eit : PLOT ALL POINTS ON THE 45 de = Y). 

Pre t4 : REPEAT EACH POINT 10 TIMES AFTER QUICK PASS. 

5411 054566 004737 027702 APTST: JSR PC, TSTGO : TITLE 

5412 054572 012737 055076 022300 MOV #20$,EXTA 3; SET ERROR EXTENSION ADDRESS. 

siz 0 004737 027054 JSR PC,LUMIN ; BLAST LUT (IF THERE IS ONE). 

5415 054604 005737 002562 TST DPUMOD 

5416 054610 001002 BNE +6 3; SKIP NEXT IF DPU-ONLY. 

ott 4 054612 004737 026650 JSR PC, CLRRW 3; CLEAR AND SET R/W MODE. 

5419 054616 012737 177777 003232 MOV #-1,TEMP sUSE AS XFER SWITCH. 

5420 054624 013737 027700 003234 MOV foobR TEMP2 [SAVE A COPY OF THE LOOPER. 

5421 054632 005004 8$: CLR R4 sEXPECTED X ADDRESS. 

5422 054634 005005 CLR R5 rh pa Y ADDRESS. 

5423 054636 005037 055146 CLR ABPX S INIT 

5424 054642 053737 003064 055146 BIS OPTI ,ABPX Sees HINTERSIEY IS OPTIONAL.. 

aes? 054650 005037 055150 CLR ABPY 3..eAND Y AT O. 

eSo 054654 1$: BGNSEG 3B SKKKEK EKER KKK K KKK KK KKK KKK BEGIN SEGMENT. 

5429 054656 012777 055140 126146 9$: MOV #ABP , aDPC START DISPLAY... 

5430 054664 004737 027454 JSR PC ,WAITF sWAIT FOR DONE FLAG. 

5431 054670 027704 126142 CMP @DXR,R4 sCHECK DXR = R4... 

5432 054674 001003 BNE 

5433 054676 027705 126136 CMP aDYR,RS 3..-AND DYR = RS. 

5434 054702 001410 BEQ 

5435 054704 23: HRDERR APF ,XYERR ; ABS POINT FAILS. 

5436 054724 3$: LOOPTO 9$ : REPEAT...TIL LOOPER EXPIRES. 

054724 004737 027646 JSR PC,LOOP 
054730 103752 BCS 98 

rag 054732 ENDSEG 5 RKKK KKK KEKE EKER KKK KKK KKK END SEGMENT. 

5439 054734 013737 003234 027700 MOV TEMP2 ,LOOPK sRESET L LOOPER. 

5440 054742 005737 003232 TST TEMP1 TEST As SUITCH. 

5441 054746 003027 BGT 5$ SINCR ap AND Y. 

rk 054750 001413 BEQ 4$ SINCR Y ONLY. 

5444 054752 062704 00000 ADD #2,R4 sINCR X ONLY. 

5445 054756 062737 000002 055146 ADD AS ABPX 


5446 054764 020427 001776 CMP R4 ,AMAXX 
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TEST 18 ABSOLUTE POINTS SEQ 0145 


5447 054770 101731 BLOS =—*1$ .AND LOOP ‘TIL DONE. 
5448 054772 005237 003232 INC TEMP1 THEN, BUMP SuIT icon 
2449 054776 000715 8$ +...AND REINI 

5451 055000 062705 000002 4$: ADD #2.R5 zINCR Y ONLY. 

5452 055004 062737 000002 055150 ADD #2, ABPY 

5453 055012 020527 001776 CMP R5,AMAXY 

5454 055016 101716 BLOS =««*i1$$ iss gAND LOOP TL DONE . 
5455 055020 005237 003232 INC TEMP1 THEN, BUMP SWITCH. 

3496 055024 000702 R 8S +...AND REINIT. 

5458 055026 012700 000002 5$: MOV #2,R0 zINCR X AND Y. 

5459 055032 060004 ADD 0,R4 SINCR X'S... 

5460 055034 060037 055146 ADD RO, ABPX 

5461 055040 060005 ADD 0,R5 y..-AND Y'S... 

5462 055042 060037 055150 ADD RO, ABPY 

5463 055046 020527 001776 CMP R5AMAXY 

3464 055052 101700 BLOS si z..eAND LOOP "TIL DONE. 
5466 055054 005737 002502 10$: TST DPUMOD 

5467 055060 001002 BNE 11$ 

5468 055062 004737 027514 JSR PC ,PAUSE1 : PAUSE IF VIDEO ON. 
5469 055066 004737 030072 11$: JSR PC, TSTEND 

roth 055072 EXIT TST : EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 
472 ! ON ERROR, SHOW ORIGIN AND DELTAS. 

5474 055076 20$:  PRINTX #LONGX,ABP+2,ABP+4,ABPX,ABPY ; EXTENSION. 
3473 055136 000207 RTS PC 

3477 : DISPLAY FILE FOR APNT TEST. 

5479 055140 117774 ABP: — APNT!ALL 

5480 055142 000000 000000 0,0 

5481 055146 000000 ABPX: 0 

5482 055150 000000 ABPY: 0 

3485 055152 17300 STOPN 

5485 055154 END. TEST 


FRR EEEERREREEEEEEREEEERAERERERRERAERERRREEEEREO REAR EEREEEEEE 
3* 

se END TEST 18 

3* 

e 


SERRE REEEEEAAEREREEEEEEEREEEREEERARREEEREEREEEEREREAEREEE 
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eee TEST 19 LONG VECTORS SEQ 0146 

5487 
FERRARA EEEEEEEERE REAR EEEEAAERERRREREREREEREEEE 
** 
:* BEGIN TEST 19 = LONG VECTORS 
** 
TITISITITISTITITILITI TTL TLIL TLL LITT LLL LLL ELL LETTE Li LT TTL iiTi iii Titi 
: (ITERATION COUNT = 10.) 

5488 : 

5489 : GENERATE LONG VECTORS FROM 0,0 VARYING THE LENGTH FROM 

5490 > MAX(X) TO HALF(XY) TO MAX(Y). 

3491 : THEN Repeat FROM MAX,MAX USING NEGATIVE DELTAS. 

3493 ; CTHIS MAY BE WORST CASE !!!) 

2435 : REPEAT EACH VECTOR 10 TIMES AFTER QUICK PASS. 

5497 055224 004737 027702 ivTST: JSR PC, TSTGO : TITLE 

5498 055230 012737 055544 022300 MOV #20$,EXTA : SET ERROR EXTENSION ADDRESS. 

2499 055236 004737 027054 JSR PC,LUMIN : BLAST THE LUT. 

5501 055242 005737 002502 TST DPUMOD 

5502 055246 00100 BNE +6 3 SKIP NEXT IF DPU-ONLY. 

2308 055250 004737 026650 JSR PC, CLRRW : CLEAR AND SET R/W MODE. 

5505 055254 005037 055610 CLR Lv+2 zINIT ORIGIN AT 0,0. 

5506 055260 005037 055612 CLR Lv+4 

5507 055264 012704 001776 MOV AMAXX RS zINIT EXP X AT MAX.. 

5508 055270 005 CLR RS D Y AT 

5509 055272 010437 055616 MOV R4,LVX tINIT X LENGTH... 

5510 055276 053737 003064 055616 BIS OPTI ,LVX 3+. OPTIONAL INT.. 

5511 055304 010537 055620 MOV 5,LV :...AND Y LENGTH. 

5512 055310 012702 177776 MOV #-2,R2 SINIT EXP X... 

5513 055314 012703 000002 MOV #2,R3 z..AND Y INCR'S. 

3314 055320 013737 027700 003234 MOV LOOPK , TEMP2 7SAVE A COPY OF LOOPK. 

2216 055326 1$: BGNSEG 2 SRR E KEKE KEKE KKK KKK KKK BEGIN SEGMENT. 

5518 055330 012777 055606 125474 9$: MOV #LV,aDPC ZSTART "EM UP. 

5519 055336 004737 027454 JSR PC ,WAITF 

5520 055342 027704 125470 CMP @DXR,R4 ZCHECK DXR = R4... 

5521 055346 001003 BNE 

5522 055350 027705 125464 CMP aDYR,RS y..eAND DYR = RS. 

5523 055354 001410 BEQ 

5524 055356 2$: HRDERR LVF,XYERR ;LONG VECTOR FAILS. 

5525 055376 3$: LOOPTO 9$ : REPEAT... 

055376 004737 027646 JSR PC, LOOP 
055402 103752 BCS 9$ 

2366 055404 ENDSEG 5 RRR KEKE KKK KKK KKK KKK KKK KKK END SEGMENT. 

5528 055406 013737 003234 02770 MOV TEMP2 LOOPK ;RESET LOOPER. 

5529 055414 033727 055616 00177 BIT Mi 

5530 055422 00141 BEQ 3BR IF DELTA X = 0. 

5531 055424 162737 900002 055616 SUB ave ; OTHERWISE DECR | 

333¢ 055432 062737 000002 055620 ADD g.LvY .AND INCR DY. 

5533 055440 060204 ADD SET NEXT EXP X... 


eee GRAPHIC 


eee TEST LONG 
5534 060305 
5535 730 
5536 
5537 4 033727 
5538 055454 B01 0ss 
5539 56 ois! 
5540 64 012737 
5541 72 052737 
22¢6 00 012737 
554 06 005004 
5544 10 012705 
5545 14 005402 
5546 16 005403 
5547 20 000702 
5548 
5549 22 005737 
5550 26 001002 
5551 30 004737 
5552 34 004737 
5553 40 
5554 
5555 
5556 
5557 055544 
5558 055604 000207 
5559 
5560 
5561 
5562 114000 
5563 000000 
5564 113774 
5565 000000 
5566 000000 
5567 173000 
5568 
5569 


055616 
001776 


0 
020000 
001776 


002502 


027514 
030072 


000000 
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3+ eAND EXP Y 


ADD R3,R5 ° 
BR 1$ 3+eeAND CONTINUE. 


4$: BIT LVX ,AMXY sARE WE IN THE NEG CYCLE ?? 
BNE 10$ sWE"RE DONE IF SO. 
MOV AMAXX ,LV+2 OTHERWISE, REINIT ORIGIN... 
MMAXY ,LV+4 32+eAT MAX.MAX. 
BIS WMXY!MAXX,LVX ;INIT X LENGTH AT -MAX. 
MOV #MXY!O,LVY zINIT Y LENGTH AT -0. 
CLR R4 sINIT EXP X = 0... 
MOV #MAXY RS zeeeAND Y = MAX... 
NEG R2 z++eREVERSE EXP INCR'S. 
NEG R3 
BR 1$ zAND GO ‘ROUND. 
10$: TST DPUMOD 
BNE 11$ 
JSR PC ,PAUSE1 ; PAUSE IF VIDEO ON. 
11$: JSR PC, TSTEND 


EXIT TST ; EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 
: ON ERROR, SHOW ORIGIN AND DELTAS. 
50s: PRINTX #LONGK LV#2,LV44,LVX,LVY : EXTENSION. 


t DISPLAY FILE FOR LONG VECTOR TEST. 
iv: APNT 
LVEC YALL 


LVX: 

LVY: 0 
STOPN 
END.TEST 


IIIT iititiiritiiiitiiiitt) 
:t 

° 

se END TEST 19 

sf 

° 


SAAR EEEREEE 


SEQ 0147 
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eee TEST 20 RELATIVE POINTS SEQ 0148 

5571 | 
é MeRBARRRAAAAAALALALASALASZLALALALELALEE SELES EES ERE SEE SS ERE ERE ER ETT 
3* 
;* BEGIN TEST 20 = RELATIVE POINTS | 
*® ! 
: PARRARALALASLLALALALELELLLALALEL ELE SELES ER EEE SERRE RE ET eee RRR RTT PTC j 
; (ITERATION COUNT = 10.) | 

5572 : | 

5573 ; VERIFY THAT WE CAN EXECUTE RELATIVE POINTS FROM 1000,1000 i 

2278 ; FOR THE FULL RANGE OF X/Y (-76 TO +76). 

5576 t PLOT ALL X POINTS, HOLDING Y AT -76. 

5577 3; PLOT ALL Y POINTS, HOLDING X AT -76. 

3278 ; PLOT ALL POINTS ON THE 45 (X = Y). 

2200 : REPEAT EACH POINT 10 TIMES AFTER QUICK PASS. 

5582 055676 004737 027702 RPTST: JSR PC, TSTGO : TITLE 

5583 055702 012737 056242 022300 MOV #20$,EXTA : SET ERROR EXTENSION ADDRESS. 

o2ee 055710 004737 027054 JSR PC, LUMIN : BLAST THE LUT. 

5586 055714 005737 002562 TST DPUMOD | 

5587 055720 001002 BNE +6 3: SKIP NEXT IF DPU-ONLY. 

2208 055722 004737 026650 JSR PC, CLRRW ; CLEAR AND SET R/W MODE. 

5590 055726 012737 177777 003232 MOV #-1,TEMP1 USE AS XFER SWITCH. 

5591 055734 013737 027700 003234 MOV LOOPK, TEMP2 ;SAVE A COPY OF LOOPK. 

5592 055742 012704 000702 8$: MOV #100076, R4 sINIT EXPECTED 7 

5593 055746 010405 MOV 

5594 055750 012737 037576 056310 MOV #37576, RPD tINiT Dx voy AT -MAX,-MAX. 

2202 055756 053737 003064 056310 BIS OPTI ,RPD OPTIONAL INTENSIFY. 

rad 055764 1$: BGNSEG b KKKK KK EEK K KKK K KK KKK KK KKK BEGIN SEGMENT. | 

5599 055766 012777 056300 125036 9$: MOV #RPT ,ADPC START DISPLAY 

5600 055774 004737 027454 JSR PC ,WAITF 

5601 056000 027704 125032 CMP @DXR,R4 CHECK DXR = R4... 

5602 056004 001003 BNE 

5603 056006 027705 125026 CMP aDYR,RS 3..-AND DYR = RS. 

5604 056012 001410 BEQ 

5605 056014 2$: HRDERR RPF,XYERR REL POINT FAILS. 

5606 056034 3$: LOOPTO 9$ ; REPEAT... 

0560. 737 027646 JSR PC,LOOP 
056040 103752 BCS 9$ 

5607 056042 ENDSEG 5 RKRK KKK EEK K KKK KKK KKK KKK <<< END SEGMENT. 

5609 056044 013737 003234 027700 MOV TEMP2 , LOOPK sRESET LOOPER. 

5610 056052 005737 003232 TST TEMP? TEST XFER SWITCH. 

5611 056056 003036 BGT 5$ sINCR X AND Y. 

2016 0 001420 BEG 4$ sINCR ONLY. 

5614 056062 062704 000002 ADD #2,R4 zs INCR X ONLY. 

5615 056066 010600 MOV R4, e 

5616 056070 004737 027312 JSR Ae CALCULATE +/= DX IN RO. 

5617 056074 042737 037600 056310 BIC # #800, RPD [CLEAR OLD... 
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eee TEST 20 RELATIVE POINTS 


| 
| 
—_ 


SEQ 0149 


5618 056102 050037 056310 BIS RO,RPD «SET NEX DX. 
5619 056106 020427 001076 CMP R4 °#1076 
5620 056112 101724 BLOS 1$ AND LOOP ‘TIL _— 
5621 056114 005237 003232 INC TEMP1 3; THEN, BUMP SWITCH. 
aes 056120 000710 BR 8$ Sees .AND REINIT. 
5624 056122 062705 000002 4$: ADD #2,R5 zs INCR Y ONLY. 
5625 056126 010500 MOV R5,RO 
5626 056130 004737 027270 JSR PC,SDY ;CALCULATE +/= DY IN RO. 
5627 056134 110037 056310 MOVB RO,RPD sSET NEW DY. 
5628 056140 020527 001076 CMP R5.#1076 
5629 056144 101707 BLOS zAND LOOP ‘TIL DONE. 
5630 056146 005237 003232 INC TEMP1 3; THEN, BUMP SWITCH... 
oo3! 056152 000673 BR 8$ 3..AND REINIT. 
5633 056154 062704 000002 5$: ADD #2,R4 ;INCR X AND Y. 
5634 056160 010405 MOV R4,R5 : WVe2=X) 
5635 056162 010500 MOV R5,R0 
5636 056164 004737 027270 JSR PC,SDY sCALCULATE +/- 7. . RO. 
5637 056170 010001 MOV 0,R1 ;SAVE FOR A MOMENT 
056172 000300 SWAB 
5639 056174 006200 ASR fey ay he FOR DX. 
5640 056176 050100 BIS R1,R0 OMBINE DX AND DY. 
056200 042737 037777 056310 BIC #37777 ,RPD CLEAR OLD... 
5642 056206 050037 056310 BIS RO,RPD wont Chew" Dx,DY. 
5643 056212 020527 001076 CMP R5,41076 | 
9g) 056216 101662 BLOS 1$ z;AND LOOP ‘TIL DONE. | 
5646 056220 005737 002502 10$: TST DPUMOD 
5647 056224 001002 BNE 11$ 
5648 056226 004737 027514 JSR PC,PAUSE1 ; PAUSE IF VIDEO ON. 
5649 056232 004737 030072 11$: JSR PC, TSTEND 
2020 056236 EXIT TST 3: EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 


5652 
5653 
5654 056242 


t ON ERROR, SHOW ORIGIN AND DELTAS. 


20S: PRINTX #SHRTX,RPT#2,RPT+4,,RPD : EXTENSION. 


3655 056276 000207 ; 

5657 nee FILE FOR REL POINT TEST. 

2020 Ose30e 001000 001000 — 1000 1000 ORIGIN AT CENTER SCREEN. 
366) 056318 000000 we: Peat :DELTA X AND DELTA Y. 
5663 056312 173000 STOPN 

8 056314 END. TEST 


PIII iii iti iii titi li tiviiiiiiiiiiiitititititiiitititititity 
*® 

i 

7* END TEST 20 

-# 

i 

e 


SERA ARAAEAAARAREAEAEARAAAEAAERARERAAAEAEAREREEAERRAEAEEEAAEEEEEREEEE 
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VSV11/VS11 == ~— SYS. DI 
eee TEST 21 ORT VECTORS SEQ 0150 
5667 
FERRARA E EERE EAERERAERERRARAERRERREREEAEERAEAEERAREEREEEE 
** 
és BEGIN TEST 21 - SHORT VECTORS 
< aeenneneneenanennenqenertenecerenqecenenqecerenqqeeeeeqececenqqceneeess 
3; CITERATION COUNT = 10.) 
5668 ; 
5669 : VERIFY THAT WE CAN te SHORT VECTORS FROM 1000,1000 
5670 ; FOR ALL VALUES OF DELTA ¥. 
2or) ; SWEEP VECTORS FROM MAX, max. CCW THRU 360 DEGREES. 
2003 ; REPEAT EACH VECTOR 10 TIMES AFTER QUICK PASS. 
5675 056364 004737 027702 SVTST: JSR PC, TSTGO ; TITLE 
5676 056370 012737 056742 022300 MOV #20$,EXTA : SET ones EXTENSION ADDRESS. 
5677 056376 004737 027054 JSR PC,LUMIN + BLAST LUT. 
056402 005737 002502 TST DPUMOD 
056406 001002 BNE +6 ; SKIP NEXT IF DPU-ONLY. 
056410 004737 026650 JSR PC, CLRRW ; CLEAR AND SET R/W MODE. 
5681 056414 012704 001074 MOV 1074,R4 :INIT cmecr i 
056420 012705 1076 MOV 076,R5 -AND Y T 
5683 056424 012737 017076 057010 MOV #17076, SVD tiNiT DX +74, DX +76. 
056432 053737 003064 057010 BIS TI,SVD :...INT OPTIONAL. 
5685 056440 005037 003232 CLR TEMP i [USE AS XFER SWITCH. 
Pat] 056444 013737 027700 003234 MOV LOOPK , TEMP2 + SAVE A COPY OF LOOPER. 
oa=4 056452 1$: BGNSEG 2 KKK KKK EERE KKK KK KKK KKK KKK BEGIN SEGMENT. 
5690 056454 012777 057000 124350 9$: MOV #SVT, te ;START DISPLAY 
5691 056462 737 027454 JSR PC ,WAITF 
0564 027704 124344 CMP aDxR, RG ;CHECK DXR = R4... 
5693 056472 100 BNE $ 
5694 056474 027705 124340 CMP aDYR,RS 3..-AND DYR = RS. 
5 056500 001411 BEQ 
5696 056502 23: HRDERR SVF,XYERR ;SHORT VECTOR FAILS. 
5697 056522 000403 BR 30$ 
5698 056524 3$: LOOPTO 9$ ; REPEAT... 
056524 004737 027646 JSR PC,LOOP 
056530 103751 BCS 9% 
44 056532 30$: ENDSEG 2 SRK KK E KERR EKER KKK KKK END SEGMENT. 
5701 056534 013737 003234 027700 MOV TEMP2 , LOOPK ;RESET LOOPER. 
5702 056542 005737 003232 TST TEMP1 sTEST XFER SWITCH... 
5703 056546 001033 BNE 7$ 3..BR IF SET. 
5704 056550 020427 000702 CMP R4,41000-76 
5705 056554 001413 BEQ 5$ 37BR IF X MIN. 
5706 056556 162704 000002 SUB #2,R4 OTHERWISE. DECR X. 
5707 056562 010400 MOV R4,RO 
5708 056564 004737 oer aks JSR a SDX TRANSLATE TO DX. 
5709 056570 042737 037600 057010 BIC #37600, SVD [CLEAR OLD.. 
5710 056576 050037 057010 BIS RO,SVD +...SET NEW DX. 
grit 056602 000723 BR 1$ +... AND CONTINUE. 
2718 056604 020527 000702 5$: CMP R5,41000-76 


att 


bh Tas 8 = G 


TEST 


5719 056630 
5720 

5721 056632 
5722 0 

5724 
5725 056650 
5726 056652 
5727 056656 


5728 056664 
34 056670 


5731 056672 


5 

5737 056716 
5738 

5739 056720 


574 
5747 056742 
5748 056776 
5749 
5750 

751 
5752 057000 
5753 057002 
5754 057006 
5755 057010 
5756 057012 


5758 057014 


5 


o- +05 
Wo 


: 


esses s=ses8 
Ay oe} Ss on— 
SSE sats 


° 
FS 
~“ 
NWW 


So 
Ww 
on 
on 
onN 


004737 


000207 


114000 
001000 
107774 


000000 
173000 


003232 
001076 


000002 
027312 
: 037600 
057010 
001076 
- 900002 
027270 
057010 
002502 


027514 
030072 


001000 


057010 


BEQ 6$ 3BR IF Y MIN. 

SUB we eR? SOTHERWISE, DECR Y. 

MOV R5,R0 

JSR PC,SDY ; TRANSLATE TO DY. 

MOVB RO,SVD ;SET NEW DY... 

BR 1$ 3eeeAND CONTINUE. 
6$: COM TEMP1 sSET XFER SWITCH. 
7$: CMP R4,41000+76 

BEQ $ 3BR IF X IS MAX. 

ADD #2,R4 SOTHERWISE, INCR X. 

MOV R4,RO0 

JSR PC, SDX ; TRANSLATE TO DX. 

BIC #37600, SVD [CLEAR OLD... 

BIS RO,SVD yeeeSET NEW DX... 

BR 3~.eAND CONTINUE. 
8$: CMP R5,41000+76 

BEQ 10$ :BR (DONE) IF Y IS MAX. 

ADD #2,R5 ZOHTERWISE, INCR Y. 

MOV 5.R0 

JSR PC,SDY ; TRANSLATE TO DY. 

MOVB RO,SVD sSET NEW DY... 

BR 1$ 3.2eAND CONTINUE. 
10$: TST DPUMOD 

BNE 11$ 

JSR PC,PAUSE1 ; PAUSE IF VIDEO ON. 
11$: JSR PC, TSTEND 

EXIT TST ; EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 


> ON ERROR, SHOW ORIGIN AND DELTAS. 
20S: PRINTX #SHRTX, SVT #2, SVT+4 SVD : EXTENSION. 


; DISPLAY CODE FOR SHORT VECTORS. 


SVT: — APNT 
1000, 1000 sORIGIN AT CENTER SCREEN. 
SVEC!ALL 
SVD: :DELTA X AND DELTA Y. 
STOPN 
END. TEST 
FEAR AEERERERREEEEREREERREEAEEREEEEEREAEEREEEEREAEREREREREERE EERE 
** 
* END TEST 21 


SRR AEAAAEAEERARAEAERERERAEAAAAAAEAAEAAEAAEAAAAEEAERAEAAAEEEEARAREEEEEEEEEE 


SEQ 0151 


12 
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eee TEST 22 RUN=-LENGTH SEQ 0152 
5760 
; MeARARASBAAAALALALLALALAAALALALALALEALEE ARSE ERE EER ERE ERR REET ER ETT TT TT a SS 
3 ** 
: BEGIN TEST 22 = RUN-LENGTH 
> REREAAAAAAAAAAAAAAAAAERAEAAAEEAEKREAKEAAAAEAAEAAAEEAAAEEAEEEAERAEREAEEERED 
3; (ITERATION COUNT = 10.) 
Ee 
5763 ; ALL VARIATIONS OF RUN LENTH MODE ARE DONE AND THE END POINTS ARE CHECKED. 
ares ; IF TESTING IN DPU-ONLY MODE, JUST THE ‘'NEWLINE'’ COMMANDS ARE TESTED. 
5766 057062 RLMOD: COMBEG 
057062 004737 027702 JSR PC, TSTGO ; TITLE. 
057066 004737 026074 JSR PC, gig ; DO SOFT INIT 
5767 057072 004737 026650 JSR PC. CLRRW t CLEAR FOR READ/WRITE. 
5768 057076 005737 002502 RLMOD1: TST : E x IN DPU-ONLY MODE? 
5769 057102 001121 BNE RLNEWL 3 oF JUST DD "NEWLINE TESTS. 
57 70 : IF NO, DO rie stests ( WRITE TO SCREEN ). 
577 ; TEST X INCREMENT 
57 } 057104 012705 000001 1$: MOV #1,R5 : INIT COUNT FOR x TEST. 
5773 057110 DPSTART #XINC 
057110 012777 057722 123714 MOV #XINC ,aDPC : START THE DPU. 
057116 004737 027454 JSR PC ,WAITF WAIT FOR DISPLAY STOP. 
5774 057122 BGNSEG PKK KEK KERR K KKK KK KKK KK BEGIN SEGMENT. 
5775 057124 110537 057743 2$: MOVB R5,.XINCB+ +1 3; MODIFY COUNT IN DISPLAY FILE. 
5776 057130 DPCONT 
057130 052777 000001 123674 BIS #B1TO,aDPC 3; CONTINUE THE DPU. 
057136 004737 027454 JSR C,WAITF F WAIT FOR DISPLAY STOP. 
5777 057142 010501 MOV 5 ; R1 = EXPECTED DXR. 
5778 057144 301 ASL 3 
5779 0571 012703 000000 MOV #0,R3 : R3 = EXPECTED DYR. 
5780 057152 017702 123660 MOV @aDXR,R2 ; READ DXR INTO R2. 
5781 057156 017704 123656 MOV @DYR,R4S ; READ DYR INTO R4. 
5782 057162 IFERRX2 RLXIE,RLXYE 
057162 020102 CMP R1,R2 ; 1ST ITEM OK? 
057164 001002 BNE 65$ 3 NO. 
057166 020304 CMP R3,R4 : 2ND ITEM OK? 
057170 001410 BEQ 64$ : YES. 
057172 65$: HRDERR RLXIE,RLXYE, 3 . 
057212 64$: 
5783 057212 005205 INC R5 : INCREMENT X VALUE. 
5784 057214 020527 000200 CMP R5,4200 : DONE ? 
5785 057220 001341 BNE 2s 
3766 057222 ENDSEG : ee IS Tannen: END SEGMENT. 
5788 O57 eee 012705 000001 MOV #1,R5 : INIT COUNT FOR X2 TEST. 
5789 0572 DPSTART #X aXGIN c 
057230 012777 057752 123574 MOV X2INC ,@DPC 3 START THE DPU. 
057236 737 027454 JSR PCS WAITF : WAIT FOR DISPLAY STOP. 
5790 057242 BGNSEG $EKKKKKK KEKE KEKE KK KKK KKK KKK BEGIN SEGMENT. 
rad} be55e6 110537 057773 3$: 44s RS, X2INCB+1 : MODIFY COUNT IN DISPLAY FILE. 
057250 052777 000001 123554 BIS #B1T0,aDPC 3; CONTINUE THE DPU. 
057256 004737 027454 JSR PC ,WAITF + WAIT FOR DISPLAY STOP. 
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eee TEST 22 RUN-LENGTH SEQ 0153 
5793 057262 010501 MOV R5,R1 ; R1 = EXPECTED DXR. 
5794 057264 ete ASL R1 : 
5795 0572 01 ASL R1 : 
5796 057270 012703 000000 MOV #0,R3 ; R3 = EXPECTED DYR. 
5797 057274 017702 123536 MOV api. R2 3; READ DXR INTO R2. 
5798 057 017704 123534 MOV aDYR,R4 ; READ DYR INTO R4. 
5799 057304 IFERRX2 RLxzie. RLXYE 
057304 020102 CMP R1,R 3; 1ST ITEM OK? 
057306 001 BNE AT 3 NO. 
057310 020304 CMP R3,R4 : 2ND ITEM OK? 
057312 001410 BEQ 66 : YES. 
057314 67$: HRDERR RLX2ZIE,RLXYE, é . 
057334 66$: 
5800 057334 005205 INC R5 3; INCREMENT X VALUE. 
5801 057336 020527 000200 CMP R5,4200 3; DONE? 
5802 057342 0601340 BNE 3$ ; NO. 
rt 057344 ENDSEG 3D KKK KK EERE KEKE KK KKK KKK KKK END SEGMENT. 
5805 ; TEST Y UP. 
5806 057346 RLNEWL: BGNSEG 5 KKK KKK EKER E KKK KKK KKK KKK BEGIN SEGMENT. 
5807 057350 DPSTART #YUP 
057350 012777 060002 123454 MOV #YUP , aDPC ; START THE DPU. 
057356 004737 027454 JSR PC,WAITF 3; WAIT FOR DISPLAY STOP. 
5808 057362 012701 0000060 MOV #0,R1 3; R1 = EXPECTED DXxR. 
5809 057366 012703 000002 MOV #2,R3 ; R3 = EXPECTED DYR. 
5810 057372 017702 123440 MOV @DXR,R2 ; READ DXR INTO R2. 
5811 057376 017704 123436 MOV aDYR,R4 ; READ DYR INTO R4. 
5812 057402 IFERRX2 RLYUE ,RLXYE 
057402 020102 CMP R1,R2 ; 1ST ITEM OK? 
57404 1002 BNE 65 : NO. 
574 020304 CMP R3,R4 ; 2ND ITEM OK? 
057410 001410 BEQ 648 : YES. 
057412 65$: HRDERR RLYUE,RLXYE, 3; NO. 
057432 648: 
A 057432 ENDSEG gb KKK KK KRENEK KKK KKK KKK KKK END SEGMENT. 
5815 : TEST Y DOWN. 
5816 057434 BGNSEG 2 KKK KK ERK KEKE KKK KKK KKK <<< BEGIN SEGMENT. 
5817 057436 DPSTART #YDN 
057436 012777 060016 123366 MOV #YDN, aDPC 3; START THE DPU. 
057444 004737 027454 JSR PC WAI TF 3; WAIT FOR DISPLAY STOP. 
5818 057450 012701 000000 MOV #0, 3; R1 = EXPECTED DXR. 
5819 057454 012703 000000 MOV #0,R3 ; R3 = EXPECTED DYR. 
5820 057460 017702 123352 MOV aDXR,R2 3; READ DXR INTO R2. 
5821 057464 017704 123350 MOV aDYR,R4 ; READ DYR INTO R4. 
5822 057470 IF ERRX2 RLYDE .RLXYE 
057470 020102 cre R1,R ; 1ST ITEM OK? 
057472 001002 BNE 678 > NO. 
057474 020304 CMP R3,R4 3: 2ND ITEM OK? 
057476 001410 BEQ 66 s YES. 
575 67$: HRDERR RLYDE,RLXYE, : NO. 
057520 66$: 
3863 057520 ENDSEG SRK KKK KEKE KEKE KKK KKK KKK END SEGMENT. 
5825 ; TEST SKIP UP. 
5826 057522 BGNSEG 3 KKK KKK KEKE KKK KK KKK KK KKK BEGIN SEGMENT. 


5827 057524 DPSTART #Y2UP 
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TEST 


wi 
co 
ww 
_ 
jojo lololololelololojlolola) 
viw 
~“N 
Ss 


5833 057606 
58 


6 
5841 057640 


057674 
5843 057674 
5844 
5845 057676 
057676 


057706 


057712 
5846 057716 


& L258 
| 


060032 123300 


027454 
000 


027646 


057076 
030072 


000000 
040000 


057732 


MOV #Y2UP ,aDPC 
PC,,WAITF 


oe Be Se Se Be 


START THE DPU. 
WAIT FOR 4b ys STOP. 


2. 
READ DYR INTO Ré. 
1ST ITEM OK? 
2ND ITEM OK? 
YES. 


ENDSEG 5 KKKRKEKR KEKE KEKE KKK KKK END SEGMENT. 


JSR , 
MOV #0,R1 
MOV #4-R3 
MOV @DKR,R2 
MOV @DYR.R4 
IFERRX2 RLY2UE,RLXYE 
CMP R1,R2 
BNE 69$ 
R3,R4 
BEQ 68s 
69$:  HRDERR RLY2UE.RLXYE, 
68$: 
: TEST SKIP DOWN. 
BGNSEG 
DPSTART #Y2DN 
MOV #YQDN, apPc 
JSR PC ,WAITF 
MOV #0. 
MOV #0,R3 


MOV R,R4 
IFERRX2 RLY2DE ,RLXYE 
CMP R1,R2 


BNE 71$ 
CMP R3,R4 
BEQ 70 
71s: HRDERR RLY2DE.RLXYE, 
" _ ENDSEG : 
RLMXIT: COMEND RLMOD1 
JSR PC, LOOP 
BCS 64$ 
BR 65$ 
64$: JMP RLMOD1 
65$: JSR PC, TSTEND 
EXIT TST 


t DISPLAY CODE. 


INC: arnt 0.0 
XINCA: APNT,1!0,0 
RNLN 
XINCB: 000777 
TOPN 
DJMP ,XINCA 


3S RRR KKK EEE K KKK BEGIN SEGMENT. 


START THE DPU. 
WAIT FOR DISPLAY STOP. 
R1 = EXPECTED DXR. 


READ DYR INTO R4. 
1ST ITEM OK? 

NO. 

2ND ITEM OK? 

YE * 


KKK RRR ERK EERE K KKK KKK END SEGMENT. 


; REPEAT ‘TIL LOOPER EXPIRES. 


PRINT ERROR SUMMARY, IF REQ'D. 
EXIT THIS TEST >>>>>>>>>>>>>>>>>> 


X INCREMENT. 


















SEQ 0155 


a1 
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eee TEST 


057752 114000 000000 000000 x2INC: APNT,0,0 : M2 INCREMENT. 
586 0977 173000 STOPN 
5864 057762 114000 040000 000000 X2INCA: APNT,1'0,0 
5865 057770 144100 RNLN! DBLPIX 
5866 057772 77 X2INCB: 000777 
5867 057774 173000 TOPN 
3868 057776 160000 057762 DUMP, X2INCA 
5870 060002 114000 000000 000000 vuP:  APNT.0,0 : Y UP. 
5871 060010 144000 000377 RNLN, 377 
3872 060014 173000 STOPN 
5874 060016 114000 000000 000002 YDN:  APNT,0,2 > Y DOWN. 
5875 060024 144040 000377 RNLN' YDOWN, 377 
3876 060030 173000 STOPN 
5878 060032 114000 000000 000000 yv2uP: APNT.0,0 : Y SKIP UP. 
5879 060040 144400 000377 RNLN'RLSKIP, 377 
goer 060044 173000 STOPN 
5 114000 000000 000004 Y2DN:  APNT,0,4 : Y SKIP DOWN. 
5883 060054 144440 000377 RNLN'RLSKIP! YDOWN, 377 

06 173000 STOPN 
5885 
5886 060062 END. TEST 


SERA AEAAAAEAAEAEAAEAAAEAAEAAEAAAEAAAEAEAARERAAEAARERAEAAEAARERAARAAEARAEARERREEE 
-* 


ie END TEST 22 
3 


SERA AAAERAEAAAEAAEEAEARAAERAAARARAERREAAERERAEEAEEERERREREERAAEEERERAEREE 
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5888 
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Dd 
STERS/SWITCH/MATCH SEQ 0156 


T 
SRERRAERAEERARAEAAARAAEAAEAARERAAEAEEEEEAAAAAAAERAERAAAEAEREAAERAREEREEEEEE 


e 
se BEGIN TEST 23 = CURSOR REGISTERS/SWITCH/MATCH 
s@ 


RRR TEAR ARERARERAAERERERERAEAAAAAAAEEAAERAEEARREKEEE 


; (ITERATION COUNT = 3.) 


5889 : 

5890 : THIS TEST, USING THE LOADABLE CURSOR POSITION REGISTERS AND "SOFT'’ SWITCH, 
5891 : PERFORMS THE FOLLOWING CHECKS ON THE CURSOR REGISTERS, JOYSTICK SWITCH, 

3892 + CURSOR MATCH AND ASSOCIATED LOGIC FOR EACH AVAILABLE SYNC GENERATOR CHANNEL : 
5894 > (1) WRITE/READ TEST OF THE CURSOR POSITION REGISTERS USING DATA OF ALL 1°S 
5895 : AND ALL 0°S, USING PROGRAMMED 1/0 (VIA DXR AND DYR) TO CHECK FOR STUCK 
2896 ; O'S, STUCK 1°S AND DUAL ADDRESSING. 

5898 : (2) WRITE/READ TEST OF THE CURSOR POSITION REGISTERS VIA THE DISPLAY FILE 
5899 ; INSTRUCTION LDCP (LOAD CURSOR POSITION) AND CURD (CURSOR gREAD) . USING 
5900 : AN INCREMENTING COUNT PATTERN ON THE X POSITION (0 - 3776) AND A 
2901 : DECREMENTING COUNT PATTERN ON THE Y POSITION (3776 = 0). 

5903 : (3) WRITE/READ TEST OF THE SWITCH ENABLE, MATCH ENABLE, AND CROSSHAIR 
2904 : INTENSITY ENABLE BITS USING PROGRAMMED 1/0 TO SET AND CLEAR ALL BITS. 
5906 : (4) WRITE/READ TEST OF THE ENABLE BITS VIA DISPLAY FILE INSTRUCTION 

5907 : LDJSS (LOAD JOYSTICK STATUS), USING ALL COMBINATIONS OF LOAD-ENABLES 
2908 ; AND DATA, 

5910 : (5) SET THE SWITCH ENABLE AND MATCH ENABLE BITS, THEN PERFORM A WRITE TO 
5911 : THE JOYSTICK STATUS REGISTER OF ANOTHER CHANNEL WITH DATA CONFIGURED 
5912 : TO SET THE ENABLE BITS; VERIFY THAT THE ENABLES OF THE CHANNEL UNDER 
5913 : TEST WERE CLEARED. FAILURE HERE INDICATES A FAULTY CHANNEL ADDRESS 
al : DECODER IN THE SYNC CHANNEL UNDER TEST. 

2916 : (6) TEST OPERATION OF THE JOYSTICK SWITCH INTERRUPT. 

5918 : (7) TEST OPERATION OF THE CURSOR MATCH INTERRUPT. FLOATING 1°S AND O° S 
5919 : PATTERNS ARE USED IN THE CURSOR X AND Y POSITIONS TO VERIFY THE A 

5920 : MATCH OCCURS ON THE SELECTED POINT WHILE DRAWING A VECTOR THROUGH IT, 
5921 : AND THAT A MATCH DOES NOT OCCUR WHILE DRAWING VECTORS AROUND THE 

3508 : SELECTED POINT PARALLEL TO THE X AND Y AXES. 

592 e 

2958 060152 005737 002502 TST DPUMOD : DPU-MODE ON 


5926 060156 001402 BEQ CSMTST ; BR IF NOT =~ OY OK TO EXECUTE. 
5927 060160 000137 065016 JMP CSMXIT 3; YES -- JUST GO TO EXIT. 


ac 
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CURSOR REGISTERS/SWITCH/MATCH 


eee TEST 23 


5955 060310 
5956 
5957 
5958 
5959 060314 
5960 6 


5973 04 
5974 060424 





02 


ooo ooo 
Wit at ete 


oo 
Ww 


01267 
004 


065142 


065144 


065146 
000000 
026114 


100000 
065150 


022300 


026106 


CSMTST: — 


1$: ASL 


sWRITE 0°S INTO 


CSMT1: BGNSEG 


1$: BISW3 
Vv 


2s: DEC 
BPL 
HRDERR 

3$: ENDSEG 


PC,TSTGO : TITLE. 

PC .DPRESET : DO SOFT INIT. 

pe Linn : IDENTIFY THE AVAILABLE SYNC CHANNELS. 
CSCHAN 3 START TESTING AT CHANNEL 0. 
#PRSYCH,EXTA : SET UP_TO PRINT CHANNEL NUMBER ON ERROR. 
PC ,DPRESET ; DO SOFT INITIALIZE a sees REGISTERS. 
CSCHAN, : GET CHANNEL hs wy R2 

R2 3 «2+_AND MAKE IT A WORD OOF FSET. 
SYCTAB(R2) ; IS THERE A MODULE HERE? 

1 ; BR IF YES. 

CSMNEXT : IF NOT, GO SELECT NEXT CHANNEL. 

Rg ; SHIFT IT LEFT 5 MORE TIMES TO GET 

Re 

Re 

Re : CHANNEL NUMBER INTO BITS <7:6> 
R2,CSCH.6 : STORE IT FOR FUTURE U 

Re ; SHIFT_IT LEFT 2 MORE TIMES TO GET 

Re ; IT INTO BITS <9:8> 

R2,CSCH.8 ; STORE IT FOR nats USE. 

Re ; wert LEFT 3 MORE TIMES ... 

Re 3 eee TO GET ... 

Re : CHANNEL NUMBER INTO BITS <12:11>, 
R2,CSCH.11 ; AND STORE IT FOR FUTURE USE. 

#0, INTMASK ; DON'T EXPECT ANY INTERRUPT 

PC,ENAINT ; BUT LOOK FOR BAD ONES. 


BOTH CURSOR REGISTERS AND VERIFY THAT ALL 0°S ARE RETURNED. 


g <KKKKKKK KKK <BEGIN SEGMENT 
#81T15,R1 : EXPECT CURSOR X = 0 (WITH FLAG SET) 
; DITTO FOR CUR 
CSRETRY,RS SET UP RS AS RETRY COUNTER ;@@aR 
CSCH. i ;MURTCPX! 6, @DXR ; WRITE CURSOR X TO 0. 
MWRTCPX'0,=(SP) 
ESCH. ath ($P) 


,@DXR 
PC,WAITF ; WAIT FOR READY. 
CCH. 11 #URTCPY!0, ,@DYR ; WRITE CURSOR Y TO 0. 
tSCne11 <P) 


PC, GETCURS 
a +Re 


CHECK bxre (X=CURSORS 
BR IF ERR 


a5 Rs : CHECK DYR (Y=CURSOR) 
33 : BR IF OK. 
RS : DECREMENT THE RETRY COUNTER : 


: GO TRY AGAIN IF NOT NEGAT IVE" 73aaR 


1$ 
CRWRZ ,RLXYE ORT THE a 


REP’ 
:>>>>>>>5>>>>END SEGMENT 


AD CURSOR, GET DXR,DYR INTO R2,R4 


SEQ 0157 
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eee TEST 2 CURSOR REGISTERS/SWITCH/MATCH SEQ 0158 


ooo ooo 
$s «te 
Srwn Wor 


Ne UNS COO 


ANN NONN NON 
NNOQO NNOO UW 


MW 
NI 


103776 
065150 
143776 


027454 
143776 
0 


065474 


;WRITE 1°S INTO BOTH CURSOR REGISTERS AND VERIFY THAT ALL 1°S ARE RETURNED. 
* €<<<<€<<<<<<<BEGIN SE 


CSMT2: 


1$: 


2$: 


3$: 


BGNSEG 
M 


ENDSEG 


#B1T15!°03776,R1 : 
R1 RS 


CSkET 


ESCH. 11 unrcex: 408776, @DxXR ;: 
HWRTCPX!*03776,-(SP 


oaehe ye (SP) 


i abxrR 
"WA F 


IT 
Csth. 11 #uRTCPY!°03776, abyr : 
03776,-(SP 


MWRTCPY!4 


PC,GETCURS 
R1,R2 


R3,R4 
3$ 
R5 


1$ 
HRDERR CRWRO,RLXYE REP 
7 >>>>>>95>>>>END SEGMENT 


GMENT 
ortTe F CURSOR X = 3776 (WITH FLAG SET) 


FOR CURSOR Y 
WRITE CURSOR X TO 3776. 


WAIT FOR READY. 
WRITE CURSOR Y TO 3776. 


READ CURSOR, GET DXR,DYR INTO R2,R4 
CHECK bx (X=CURSORS 


BR 

CHECK DYR (Y=CURSOR) 

BR IF OK. 

oa Thy ae THE RETRY COUNTER ;a@a@aR 


TRY AGAIN IF NOT NEGATIVE ;aaaR 
ORT THE ERROR. 
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VSV11/VS11_ == GRAPHIC SYS. DIAG 
eee TEST 23 CURSOR REGISTERS/SWITCH/MATCH SEQ 0159 
5996 
reads sCHECK DUAL ADDRESSING == VERIFY THAT Y NOT CHANGED BY WRITING X. 
5999 060540 012701 100000 CSMT3: MOV #B81T15!0,R1 ; EXPECT CURSOR X TO BE vs 
6000 060544 012703 103776 MOV #B1T15'*03776 R3- EXPECT CURSOR Y TO BE ALL 1°S 
6001 060550 BISw3 CSCH.11 ,#WRTCPX, rs: SET UP WRITE CURSOR wr CHANNEL 
060550 012705 140000 MOV MWRTCPX.R5 
060554 053705 065146 BIS CSCH.11,R5 
6003 060560 1$: BGNSEG g <KKKKKKKKKKKKBEGIN SEGMENT 
6004 060562 013700 065150 MOV CSRETRY RO 
6005 060566 10$: BISW3 = R5,R3.a : LOAD CURSOR Y WITH A PATTERN. 
0605 010346 MOV R3,- Rr Ee) 
060570 050516 BIS R5, (SP) 
060572 012677 12224 MOV (SP) +, aDYR 
6006 060576 004737 027454 JSR PC ,WAITF 3; WAIT FOR STOP. 
6007 060602 BISW3 R5,R1,aDXR 3; LOAD OPPOSITE PATTERN INTO CURSOR X. 
060602 010146 MOV R1,-(SP) 
050516 BIS R5,(SP) 
060606 012677 122224 MOV (SP)+,aDXR 
6008 060612 004737 065474 JSR PC,GETCURS ; GET THE CURSOR INTO R2 & R4. 
6009 060616 020102 CMP R1,R2 ; vee DXR (X=CURSOR) 
6010 060420 001002 BNE ; BR IF ERROR 
6011 060622 020304 CMP R3,R4 3; CHECK DYR (Y-CURSOR) 
6012 060624 001412 BEQ 3$ 3 
6013 060626 005300 2$: DEC RO ; DECREMENT THE RETRY COUNTER ;@aaR 
6014 060630 100356 BPL 10$ 3; GO TRY AGAIN IF NOT NEGATIVE. saaaR 
6015 060632 HRDERR CRDAX,RLXYE : REP ORT THE ERROR. 
rth} 060652 3$: ENDSEG = >>>>>995>>>DEND SEGMENT 
6018 060654 032701 003776 BIT #°03776,R1 ; DID WE ain 1°S INTO X YET? 
6019 060660 001004 BNE 4$ : BR IF YES, SO WE'RE DONE. 
6020 060662 010301 MOV R3,R1 : iw 50. ESkp PATTERNS 
6021 060664 012703 100000 MOV #B1T15,R3 : SET UP TO WRITE Y TO 0. 
6022 060670 000733 BR 1$ ; LOOP BACK TO DO IT. 
6023 060672 4$: 
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eee TEST 23 CURSOR REGISTERS/SWITCH/MATCH SEQ 0160 
6025 
oes ;CHECK DUAL ADDRESSING -- VERIFY THAT X NOT CHANGED BY WRITING Y. 
6028 060672 012701 103776 CSMT4: MOV ei gionng R1 ; EXPECT Sats - TO BE ALL 1°S 
6029 060676 012703 100000 MOV #B1T15!0,R3 “EXPECT CURSOR Y 
6030 060702 BISW3 coe 11 ,MWRTCPX, Rs: SET UP WRITE LORSDR W/ CHANNEL 
060702 012705 140000 MOV MWRTCPX.RS 
, Ceres 053705 065146 BIS CSCH.11.R5 
oO 32 or AE 1$: BGNSEG » pasar ar eae SEGMENT 
6033 060714 013700 065150 MOV CSRETRY. RO 
6034 060720 10$: BISW3 R5,R1.a é + LOAD CURSOR X WITH A PATTERN. 
060720 010146 MOV al. “($P) 
06072 50516 BIS SP) 
060724 012677 122106 MOV RepssP @XxR 
6035 060730 737 027454 JSR PC, 
6036 060734 BISwW3 = RS, °R3, apyR ; LOAD OPPOSITE PATTERN INTO CURSOR Y. 
060734 010346 MOV R3,-(SP 
060736 050516 BIS R5, (SP) 
060740 012677 122074 MOV (SP)+,aDYR 
6037 060744 0u4737 065474 JSR PC, GETCURS GET THE CURSOR INTO R2 @ R4. 
6038 060750 020102 CMP R1,R2 3 CHECK bxR (X=CURSOR) 
6039 060752 1002 BNE ; BR IF 
6040 06075 020304 CMP R3,R4 3; CHECK DYR (Y-CURSOR) 
6041 060756 141 BEQ bt} ; BR IF 
6042 0607 005300 2$: DEC r DECREMENT THE RETRY COUNTER ;a@aaR 
6043 060762 10035 BPL 10$ : GO TRY AGAIN IF NOT NEGATIVE s@aaR 
6044 060764 HRDERR CRDAY,RLXYE REPORT THE ER - an 
one? 061004 3$: ENDSEG 3 >>>>>>>5>>>>END SEGMENT 
6047 061006 032703 003776 BIT #°03776,R3 ; DID WE WRITE 1°S INTO Y YET? 
6048 061012 00100 BNE 4$ ; BR IF YES, 7. ‘. RE DONE. 
6049 061014 010103 MOV R1,R3 ; NO, SO SWAP P ATTERNS. 
6050 061016 012701 100000 MOV #B1T15,R1 3 T UP TO WRITE X TO O. 
6051 061022 00073 BR 1$ 3 LOOP BACK TO DO IT. 
6052 061024 4$: 
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eee TEST 23 CURSOR REGISTERS/SWITCH/MATCH SEQ 0161 
6054 
R22 ; DO WRITE/READ TEST USING DISPLAY FILE. 
6057 061024 005001 CSMT5: CLR g ieit THE X PATTERN TO 0 
6058 061026 012703 003776 MOV #°03776,R3 T THE Y PATTERN TO ALL 1°S 
6059 061032 BISW3 CSCH.6, #LDCP, csmi it SET UP THE DISPLAY FILE 
061032 012746 175000 MOV #LDCP,-(SP) 
061036 053716 065142 BIS CSCH.6, (SP) 
061042 012637 065200 MOV iS tg CSMFIA 
6060 061046 B1SwW3 SCH. *s° #CURD,CSMF1B ; ... BY INSERTING THE CHANNEL. 
061046 012746 146100 MOV ge D,-(SP) 
061052 053716 065144 BIS CSCH.8, (SP) 
6061 061056 012637 065206 MOV (SP) +, CSMF1B 
6062 061062 010137 065202 1$: MOV R1, podem ; INSERT X COORD. TO BE WRITTEN 
6063 061066 010337 065204 MOV R3.CSMFIA+ 3». AND THE Y CCORDINATE. 
6064 061072 013705 065150 MOV CSRETRY, aS 
6065 061076 BGNSEG 2 <€€£< <<< <<< <<BEGIN SEGMENT 
6066 061100 2$: DPSTART #CSMFIA EXECUTE LOAD — READ OF CURSOR. 
061100 012777 065200 121724 MOV #CSMF 1A, aDPC : START THE D 
061106 737 027454 JSR PC WAITF ; WAIT FOR DISPLAY STOP. 
6067 061112 052701 100000 BIS #B1T15,R1 : EXPECT A CURSOR FLAG BIT IN DXR 
6068 061116 052703 100000 BIS #BIT15,R3 3 AND DYR 
6069 061122 004737 065520 JSR PC,RDDXY 3 GET MASKED DXR AND DYR INTO R2 AND R4. 
6070 061126 020102 CMP 1,R2 3; CHECK DXR FOR X CURSOR. 
6071 061130 001002 BNE 3$ ; BR IF INCORRECT. 
6072 061132 020304 CMP R3,R4 : CHECK DYR FOR Y CURSOR. 
6073 061134 001412 BEQ 4$ ; BR IF OK. 
6074 061136 005305 3$: DEC RS 
6075 061140 100357 BPL 2s 
6076 061142 HRDERR CRWRE,RLXYE ERROR -=- DXR ' DYR WRITE/READ ERROR. 
or 061162 4$: ENDSEG = >>>>>>95>>>END SEGMENT 
6079 061164 062701 100002 ADD #2'BIT15,R1 : INCREMENT THE X PATTERN. 
80 061170 162703 100002 SUB #2'BIT15,R3 : DECREMENT THE Y PATTE 
6081 061174 032701 003776 BIT #*03776,R1 : DID WE INCREMENT X AROUND TO 0? 
061200 001330 BNE $ 3; LOOP BACK IF NO. 
6083 061202 30$: 


VSV11/VS11_<= ans SYS 4 


IA 
TE 


eee TEST 23 URSOR REGI 

6085 

6086 

6087 

6088 

6089 

6090 061202 

6091 061204 004737 026176 

yras4 061210 012701 100000 

6093 061214 010103 

6094 061216 
061216 012746 042077 
061222 055716 065144 
061226 012677 121604 

6095 061232 004737 027454 

6096 061236 
061236 012746 042052 
061242 055716 065144 
061246 012677 121564 

6097 061252 013705 065150 

6098 061256 004737 065542 

6099 061262 020102 

6100 061264 001002 

6101 061266 020304 

6102 061270 001412 

6103 061272 005305 

6104 061274 100370 

6105 061276 

6106 061316 

6107 

6108 

6109 

6110 061320 

6111 061322 012701 114000 

6112 061326 012703 110000 

6113 061332 
061332 012746 042052 
061336 053716 065144 
061342 012677 121470 

6114 061346 004737 027454 

6115 061352 
061352 012746 042077 
061356 053716 5144 
061362 012677 121450 

6116 061 013705 065150 

6117 061372 004737 065542 

6118 061376 020102 

6119 061400 001002 

6120 061402 020304 

6121 061404 001412 

ats 0614 005305 

6123 061410 100370 

6124 061412 

6125 061432 


; *** SPACE HERE FOR TESTING GENERAL DUAL ADDRESSING (ALL DBUS CODES & CHANNELS) 
; VERIFY THAT THE SWITCH, MATCH AND CROSSHAIR ENABLES CAN BE CLEARED TO 0°S. 


CSMT6: 


1$: 


2$: 


3$: 


BGNSEG 
JSR 


HRDERR 
ENDSEG 
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RS/SWITCH/MATCH 


5 €<KKK <<< <<< <CBEGIN SEGMENT 


PC ,DSBINT : DISABLE INTERRUPTS 

#81T15,R1 : EXPECT DXR TO BE 0 

R1,R : DITTO FOR DYR. 

CSCH.8 #WJSS!*077, aDXR : FIRST SET ALL ENABLES. 
#WJSS!4077,-(SP) 

CSCH.8, (SP 

(SP) +, @DXR 


PC ,WAITF 3 WAIT FOR READY. 

CSCH.8 ,#WJSS'BITS!BIT3!BIT1,@DXR ; THEN CLEAR THEM. 
#WISS!BITS!BIT3!BIT1,-(SP) 

CSCH.8, (SP) 


(SP)+,aDXR 
CSRETRY,RS : aaar 
,GETUSE : GET THE ENABLES INTO R2 AND R4. 
: : CHECK BXR (X=CURSOR) 
$ ; BR IF ERR 
R3.R6 : CHECK DYR (Y=CURSOR) 
RS : DECREMENT THE RETRY COUNTER ;a@a@R 


1$ ; GO TRY AGAIN IF NOT NEGATIVE ;aaaR 
JSEWRZ ,RLXYE ; REPORT THE ERROR. 
3>>>>>>>>>>>>END SEGMENT 


; VERIFY THAT THE SWITCH, MATCH AND CROSSHAIR ENABLES CAN BE SET TO 1°S. 


CSMT7: 


1$: 


2$: 


3$: 


BGNSEG 
MOV 


MOV 
BISwW3 
MOV 


BPL 
HRDERR 
ENDSEG 


36K KKK <<< <<<BEGIN SEGMENT 
WBITIS! JSSIES!JSMIES,R1 ; EXPECT DXR TO HAVE SW & MAT SET. 
#BITIS'CHIE,R3 ; EXPECT DYR TO HAVE CROSSHAIR ENABLE SET. 
CSCH.8 #aJSS1B113 1817 'BIT1,@DXR ; FIRST CLEAR THEM. 


#WJSS'BITS'BIT3'!BIT1,-(SP) 

CSCH.8, (SP) 

(SP)+, aDXR 

PC WAI TF : WAIT FOR READY. 

CSCH. 8 #WJSS/*077.aDXR 7° THEN SET THEM. 
#WJSS!4077,-(SP) 

CSCH.8, (SPS 

(SP)+, aDXR 

CSRETRY,RS : aaar 

PC, GETUSE : GET THE ENABLES INTO R2 AND RG. 
R1,R2 : CHECK BxR (X=CURSOR) 

R3.R4 : CHECK DYR (Y-CURSOR) 

R5 : DECREMENT THE RETRY COUNTER ;aa@aR 


1$ ; GO TRY AGAIN IF NOT NEGATIVE ;a@aaR 
JSEWRO,RLXYE ; REPORT THE ERROR. 
3>>>>>>>>>>>>END SEGMENT 


SEQ 0162 
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eee TEST 23 CURSOR REGISTERS/SWI TCH/MATCH SEQ 0163 
6127 
6128 : TEST ENABLES WITH GENERAL WRITE/READ FROM DISPLAY FILE. 
6130 061434 112737 000000 026106 CSMT8: MOVB #0, INTMASK 
6131 061442 004737 026114 JSR PCAENAINT ; ENABLE INTERRUPTS, TO FIND BAD ONES. 
6132 061446 013704 065144 V CSCH GET_A COPY OF THE CHANNEL #, FOR INSERTING. 
6133 061452 BISW3 RG CHB ERG age? CSMF2A ; SET UP TO CLEAR ALL. 
061452 012746 146052 MOV #CULOFE !CUOFF. -(§P) 
061456 050416 BIS RG, (SP 
061460 012637 065212 MOV (SP)+,CSMF2A 
6134 061464 BISW3 R4,MLDJSS, CSMF 2B : SET UP TO GENERAL WRITE. 
061464 012746 146000 MOV #LDJSS,-(SP) 
061470 050416 BIS R4, (SP 
061472 012637 065214 MOV (SP) +, CSMF2B 
6135 061476 BISW3 R4,MCURD,CSMF2C ; SET UP FOR READ. 
061 012746 146100 MOV #CURD, -(SP) 
061502 050416 BIS R4, (SP) 
061504 012637 065216 MOV (SP) +, CSMF2C 
6136 061510 BISW3 R4,MLDJSS!*077, CSMF 2D : SET UP TO SET ALL. 
061510 012746 146077 MOV #LDJSS!*077,-(SP) 
061514 050416 BIS R4, (SP) 
re 061516 012637 065222 MOV (SP)+, CSMF2D 
6138 061522 1$: BGNSEG g <KKKKKKKKKKKKBEGIN SEGMENT 
6139 061524 012701 100000 MOV #B1T15,R4 : ASSUME JSSIE AND JSMIE WILL BE 0. 
6140 061530 010103 MOV 1, : ASSUME CHIE WILL BE 
6141 061532 013705 065214 MOV CSMF2B,R5 : GET A COPY OF The WRITTEN BITS. 
6142 061536 032705 000002 BIT MISWE RS : ENABLED TO WRITE SWITCH ENABLE? 
6143 061542 001405 BEQ 2 : BR IF NO -- LEAVE EXPECTED ALONE. 
6144 061544 032705 000001 BIT #JSWD RS : WRITE TO 1? 
6145 061550 001402 BEQ : BR IF NO -= LEAVE AT 0. 
6146 061552 052701 004000 i BIS #ISSIES,R1 > YES == SET EXPECTED STATUS. 
6148 061556 032705 000010 BIT HIME RS : ENABLED TO WRITE MATCH ENABLE? 
6149 061562 00140 BEQ 3$ : IF NO -- LEAVE EXPECTED ALONE. 
6150 061564 032705 000004 BIT #IMWD RS : WRITE TO 1? 
6151 061570 00140 BEQ : BR IF NO == LEAVE AT O. 
6132 061972 052701 010000 . BIS #JSMIES,R1 : YES == SET EXPECTED STATUS. 
6154 061576 032705 000040 BIT MICWE RS : ENABLED TO WRITE CROSSHAIR ENAS!E? 
6155 061602 001405 BEQ : BR IF NO =- LEAVE EXPECTED ALONE. 
6156 061604 032705 000020 BIT #ICWD RS ; WRITE TO 1? 
6157 061610 001402 BEQ : BR IF NO - LEAVE AT 0. 
6158 061612 052703 010000 BIS #CHIE,R3 : YES -- SET EXPECTED. STATUS. 
6160 061616 013700 065150 4$: MOV CSRETRY,RO : @aar 
6162 061622 40$:  DPSTART #CSMF2A : EXECUTE CLEAR ALL, THEN GENERAL WRITE. 
961622 012777 065212 121202 MOV ACSMFOA,@DPC = ;:-: START _THE DPU. 
061630 006737 027454 JSR PC ,WAITE : WAIT FOR DISPLAY STOP. 
6163 061634 004737 065566 JSR PC RDJSE + GET DXR, DYR INTO R2, R4. 
6164 061640 020102 CMP R1.R2 + CHECK DXR (X=CURSOR) 
6165 061642 001002 BNE 418 : BR ROR 
6166 061644 020304 CMP R3_R4 ; CHECK DYR (Y=CURSOR) 
6167 061646 001412 BEQ 43$ 3 BR 
6168 061650 005300 41$: DEC RO : BECHEMENT THE RETRY COUNTER aaaR 
6169 061652 100363 BPL 40$ : GO TRY AGAIN IF NOT NEGATIVE : 





6170 061654 


“ 
WW 
NOFSF ONO 


RESSEEEREEEESEEE FREE 
SSRMARESY 


= 

& 

8 
e533 


rr 
® 
Rees 
oss 
par Por Por 
fo ae) 


6200 
6201 069020 
6202 062022 


6206 062046 
6207 062050 
6208 062054 

6209 062062 
6210 062064 
6211 062070 





VSV11/VS11_== GRAPHIC 
eee TEST 23 


SYS 
CURSOR RE 


. DIA 
GISTE 
114000 
110000 
000002 
000001 


004000 


000010 
000004 
010000 
000040 
000020 
08 
ssoeH 


0 
065566 


065214 
000077 


061522 


121034 


065214 


43$: 


5$: 


6$: 


7$: 


72$: 


73$: 


HRDERR CEZWE,RLXYE 


WBIT15! JSSIES:JSMIES, R1 ; ASSUME SWITCH & MATCH ENABLES ARE 1. 
#BITIS!CHIE,R3 


BPL 
HRDERR 
ENDSEG 
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RS/SWITCH/MATCH 


MISWE ,RS 
#ISWD RS 
MISSIES,R1 


#IMWE ,RS 
#JIMWD RS 
#ISMIES .R1 
#ICWE RS 
#JCWD RS 
7$ 

#CHIE ,R3 
CSRETRY,RO 
#81T0,aDPC 
PC ,WAITF 


PC; WAITF 
PC -RDJSE 
R1.R2 
72$ 
R3,R4 


73$ 
RO 


7$ 
CESWE ,RLXYE 


; REPORT THE ERROR. 


; ASSUME CROSSHAIR ENABLE IS 1. 


ENABLED TO WRITE SWITCH ENABLE? 
cnITE fo NO 0? LEAVE EXPECTED ALONE. 


BR IF NO ~ LEAVE AT 1. 
YES == CLEAR EXPECTED STATUS. 


ENABLED TO WRITE MATCH ENABLE? 
BR IF NO == LEAVE EXPECTED ALONE. 
WRITE TO 0? 

BR IF NC =~ LEAVE AT 1. 

ves = CLEAR EXPECTED STATUS. 


ENABLED TO WRITE CROSSHAIR ENABLE? 
BR IF ” =~ LEAVE EXPECTED ALONE. 
eT i 0 0? 


IF NO =~ LEAVE AT 1. 
YES == CLEAR EXPECTED STATUS. 
aaaR 


: RESTART, TO rime thd THEN DO GENERAL WRITE. 


CONTINU 


TH 
; WAIT FOR DISPLAY STOP. 
: WAIT F 


IT FOR DONE. 
; GET DXR, DYR INTO R2, R4. 


: CHECK DXR (X-CURSOR) 
BR ROR 

: CHECK DYR (Y=CURSOR) 

: DECREMENT THE RETRY COUNTER ;a@aaR 


; GO TRY AGAIN IF NOT NEGATIVE ;aaaR 
; REPORT THE ERROR. 


a—#~s "> SEGMENT 


SMF 2B 
#*077,CSMF 2B 
8$ 


1$ 


REMENT THE LDJSS WRITE DATA. 
: DONE ALL COMBCS? 
: BR TO EXIT IF YES. 
- SO LOOP BACK FOR ANOTHER ROUND. 





SEQ 0164 
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62 
6245 062244 


2$: 


VSV11/VS11_== GRAPHIC SYS. DIAG 
eee TEST 23 CURSOR REGISTERS/SW1TCH/MATCH SEQ 0165 
6213 ; CHECK THAT WRITING s. AND JM ENABLES OF OTHER CHANNELS CLEARS ENABLES OF 
6214 ; THE CHANNEL UNDER TEST 
6216 062070 737 026074 tsMT9: JSR PC ,DPRESET : DO SOFT INITIALIZE. 
6217 062074 105037 026106 CLRB —sINT MASK 
6218 062100 013705 065144 MOV CSCH.8,R5 : GET CHANNEL # IN R5<9:8> 
6220 062104 062705 000400 1$: ADD #BI1TB,RS : INCREMENT TARGET CHANNEL 
6221 062110 042705 176377 BIC #°C<BIT9!BIT8>,RS5 : MASK THE CHANNEL FIELD. 
6222 062114 020537 065144 CMP R5,CSCH.8 : BACK TO THE CHANNEL UNDER TEST? 
6295 062120 00145 BEQ : BR = YES. DONE 
6225 062122 BGNSEG 3 <<<<<<<<<<<<<BEGIN SEGMENT 
6226 062124 BISW3  CSCH.8, #URTISS! JCWE | IMME | JMMD ! JSUE | JSUD, @DXR =; :_ SET ENABLES 
062124 012746 042057 MOV MWRTISS! JCWE! JMWE ! JMWD ! JSWE ! JSWD,-(SP) 
062130 053716 065144 BIS CSCH.8, (SP) 
062134 012677 120676 MOV (SP) aDXxR 
6227 062140 004737 027454 JSR C,WAITF 
6228 062144 B1Sw3 RS RS -AMRT ISS! JMWE! JMWD! JSWE | JSUD a@DXR 
062144 012746 042017 MOV MWRT ISS! JMWE ! JMWD ! JSWE ! JSWD,-(SP) 
062150 050516 BIS , (SP) 
_.. 062152 012677 120660 MOV (SP) +, aDXR 
6229 062156 004737 027454 JSR ,WAITF 
6230 062162 012701 100060 MOV #81T15,R1 : EXPECT ENABLES TO BE CLEAR. 
6231 062166 012703 100000 MOV #B81T15.R3 
6232 062172 013700 065150 MOV CSRETRY,RO : aaar 
6233 062176 004737 065542 10$: JSR PC, GETUSE : LOAD R2 & R4 W/ DXR, DYR. 
6234 062202 020102 CMP R1.R2 + CHECK DXR (X=CURSORS 
6235 062204 00100 BNE 12$ : BR IF ERROR 
6236 062206 020304 CMP R3,R4 : CHECK DYR (Y=CURSOR) 
6237 062210 001412 BEQ 138 : BR IF 
062212 005300 12$: DEC t DECREMENT THE RETRY COUNTER ;aa@aR 
6239 062214 100370 BPL fs + GO TRY AGAIN IF NOT NEGATIVE ;aa@aR 
6240 062216 HRDERR JENOCL,RLXYE §: REPORT THE ERROR. 
6242 062236 13$: ENDSEG y>>>>>>>>>>>>END SEGMENT 
6248 062240 000137 062104 JMP : LOOP BACK TO TRY ANOTHER TARGET. 


—_ 
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TEST 23 


PRELRERERRERE 
WONAOUSWN-OOOn 


6260 
6261 
6262 


062266 
6267 062272 
6268 062276 

062276 


062306 
6269 062312 


6272 062336 
6273 062342 
6274 062350 
6275 062354 


062354 
6276 062362 


CURSOR REGISTERS/SW1ITCH/MATCH 


004737 
004737 
012746 


053716 


026176 
025402 
042002 


027454 
160002 


023422 
160000 


027454 
000012 


120466 


120452 


13 


;TEST THE SOFT JOYSTICK SWITCH INTERRUPT OPERATION: 


(1) 
§) 
(4) 
(5) 


CLEAR SWITCH ENABLE, SET SWITCH, SEE THAT NO INTERRUPT PENDING. 
CLEAR SWITCH, SET SWITCH ENABLE, SEE THAT NO INTERRUPT PENDING. 
int BOTH SWITCH ENABLE AND SWITCH, SEE THAT FLAGS SHOWS PENDING 


ERRUPT 
REPEAT (35, BUT ALLOW INTERRUPT AND CHECK RESULTS 


REPEAT (4) BUT FROM DISPLAY FILE, SEE THAT SWITCH INTERRUPT STOPS 
PROCESSING AND GETS CURSOR. 


3(1) TEST THAT NO INTERRUPT REQUEST OCCURS WITH ENABLE CLEAR AND SWITCH SET. 


CSMT10: BGNSEG 


1$: 


3 <<<KKK <<< <<< <BEGIN SEGMENT 
PC ,DSBINT ; DISABLE INTERRUPTS. 


INITIALIZE THE DPU. 
JS PC,DPINIT 0 pO SOFT INIT, CHECK THE STATE. 
BISW3  CSCH.8, nasss'ssvb'0, @DXR ; CLEAR SWITCH ENABLE. 
MOV #UJSS}ISWE0,~(S - 


JSR oWAITF 
BISW3 CSCH. 8. Poth Ny 9 @aDYR ; SET THE SWITCH. 
MOV MWECC! ts 27 (SP) 


BIS CSCH. ant 

MOV (SP)3-aDYR. 

JSR PC, 7 

JSR PC,! ; CHECK INTERNAL REGS FOR INIT STATE. 
BISwW3 StH. a WWECC, aDYR STURN OFF THE SWITCH 

MOV MWECC .-(SP) 


BIS CSCH.8, (SP) 
MOV (SP) aDYR 


JSR WAITF 
mov ae aDXxR :DISMISS INTR REQ, IF ANY 
WIDSRA ZCLEAR PENDING INTERRUPT 


MOV oobett7! SETFLG. a@DSR 
ENDSEG :>>>>>3>>>>>>END SEGMENT 


SEQ 0166 


eee TEST 23 


6278 


VSV11/VS11_== GRAPHIC SY 


CURSOR R 


S. DI 
EGISTE 


026176 
025402 


027454 
042003 
065144 


023422 
025402 


AG 
R 


13 
MACRO M1113 28-OCT-81 11:23 PAGE 9 
S/SWITCH/MATCH 









3(2) TEST THAT NO INTERRUPT REQUEST OCCURS WITH ENABLE SET AND SWITCH CLEAR. 
CSMT11: BGNSEG 


1$: 





JSR 
INITDP 
JSR 
ENDSEG 





g <<KKKKKKKKKKKBEGIN SEGMENT 
PC DSBINT ; DISABLE INTERRUPTS. 
: INITIALIZE THE DPU. 
PC, pPINI IT 0 DO SOFT INIT, CHECK THE STATE. 
sth. zB gMWECC:0. vaya : CLEAR THE SWITCH. 
tsen. % (SP) 
(SP) -@DYR 


Pp 
cSCH. rte pled eb So ee @DXR ; SE SWITCH ENABLE. 
MWISS! JSWE ! JSWD,-(SP) 


CSCH.8, (SP) 


(SP) +,aDX 

PC ,WAITF 

PC, IT IRCHK : CHECK INTERNAL REGS FOR INIT STATE. 
PC,DPINIT 0 DO SOFT a CHECK THE STATE. 


G 
:>>>>9995>>>>END SEGMENT 


SEQ 0167 


7 


, 





eee TEST 23 


63 

629 

6294 

6295 post28 
6296 2s 


6297 062456 
6298 Bosees 
46 


6309 062620 
6310 062624 
6311 062632 
631 
6313 062636 
062636 
6314 062644 
6315 062650 
6316 062652 


VSV11/VS11_== GRAPHIC SY 


CURSOR R 


= 
NMwwr 
| 


ooo 
= 


oo oO 23 
on =—4 = 
=o 

— 

oO 

1) 


S. DIA 
EGISTE 


025402 
026176 


027454 
160002 


000002 
120274 


0 
027454 


000012 
023422 


026074 






M13 





G MACRO M1113 28-OCT-81 11:23 PAGE 90 
RS/SWITCH/MATCH SEQ 0168 
7(3) SET SWITCH AND ENABLE, SEE PENDING INTERRUPT 
CSMT12: cones 3 <<< <<< <<<<<BEGIN SEGMENT 
JSR PC ,DPINIT 3 GO DO SOFT INIT, CHECK THE STATE. 
JSR PC,DSBINT 
BISW3 CSCH.8,#WJSS!JSWE!JSWD,aDXR : ENABLE SWITCH INTERRUPT. 
V MWISS! JSWE ! JSWD,-(SP) 
BIS CSCH.8, (SP) 
MOV (SP)+, 
JSR PC ,WAITF 
BISW3 CSCH.8,#WECC!SWCHON, @DYR ; TURN THE SWITCH ON. 
MOV WWECC ! SWCHON, =(SP) 
BIS CSCH.8, (SP) 
MOV (SP) + -@D R 
JSR PC ,WAITF 
MOV #CHAR! JSLCKO!PINTRB!PVEC2, RI : EXPECT FLAGS TO SHOW PENDING. 
RDDSRA FLG,R D THE FLAGS REGISTER INTO R2. 
120300 mov #SELFLG.aDSR : READ rig” INTO R2 . 
IFERROR NOSWPI ,EXPREC 
CMP R1,R2 3; OK? 
BEQ 64 : YES. 
HRDERR NOSWPI,EXPREC, : NO. 
6s 
B1SwW3 cSCH. 8, MECC, aDYR : TURN OFF THE SWITCH. 
MOV #WECC,-(SP) 
BIS SCH. “6, 3p) 
MOV (SP) 
JSR PC, wait ie 
BISW3 cst. 8, #JSS! JSWE 0, a@DXR 
MOV JSS JSWE?0, =( 
BIS CSHB, 
MOV (SP) 
JSR PC, wath. 
120204 MOV #CTISSWADAR :DISMISS INTR REQ, IF ANY 
JSR PC ,WAITF 
WIDSRA : CLEAR THE FLAGS AND INTERRUPT. 
120170 MOV fOt"ci7:serFLs, aDsR 
JSR PC, 1IRCHK : CHECK THE INTERNAL REGISTERS 
2$: ENDSEG >>>>>>>>>>>>END- SEGMENT 
JSR PC, DPRESET : DO SOFT INITIALIZE. 





6323 062664 

6324 062670 
06267: 

6325 062676 


6327 pestle 


6 

6340 063012 
6341 

6342 063012 
6343 063014 





VSV11/VS11_== GRAPHIC SY 


wee TEST 23 CURSOR R 


004737 
004737 


012737 
012746 


001414 
012701 
000137 


004737 








S. DIA 
EGISTE 


025402 
026114 


177610 
042003 
065144 
120124 
027454 


160002 
4 


000100 
026107 


026107 


062742 
063012 


026074 





026106 


N13 
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RS/SWITCH/MATCH 


SEQ 0169 


3(4) SET SWITCH AND ENABLE, CHECK FOR PROPER INTERRUPT. 
CSMT13: oars 3 <€<€€<<<<<<<<BEGIN SEGMENT 


TD 
JSR PC,DPINIT : GO DO SOFT INIT, CHECK THE STATE. 
SR C,ENAINT 
INTSET JS 
V #*0177400! IOKCKIN: IOKJSS, INTMASK | PRIME FLAG, EXPECT JSS 
BISW3 CSCH.8,#WJSS! JSWE!JS a apx R : ENABLE’ SWITCH INTERRUPT. 
MOV Has8! Sue SMD, (SP) 
BIS CSCH.8, (SP) 
rH (SP) 5 sa KR 
B1SW3 CSCH.8,#WECC! SWCHON, @DYR ; TURN THE SWITCH ON. 
MOV #WECC! SWCHON,-(SP) 
BIS CSCH.8, (SP) 
V (SP)+,aDYR 
JSR PC WAIT 
MOV #100,R2 
10$: TSTB INTFLAG ; DID WE INTERRUPT? 
BPL 11$ ; BR IF YES. 
DEC R2 
BGT 10$ 
11$: TSTB INTFLAG ; DID WE GET GOOD INTERRUPT? 
BEQ es ; BR IF YES 
MOV #10$,R1 ; GET CPU PC. 
HRDERR NOSWI,INTERR 
3$ ; MIGHT AS WELL QUIT. 
2$: 
3$: ENDSEG 3>>>>>>>>>>>>END SEGMENT 
JSR PC,DPRESET ; DO SOFT INIT. 


14 
VSV11/VS11_== GRAPHIC SYS. DIAG MACRO M1113 28-OCT-81 11:23 PAGE 82 


eee TEST 23 CURSOR REGISTERS/SWITCH/MATCH SEQ 0170 
6345 
6346 :(5) CHECK SWITCH INTERRUPT OPERATION FROM DISPLAY FILE. 
6348 0638 0 CSMT14: BGNSEG 5 KKKKKKKKKKKCCBEGIN SEGMENT 
6349 063022 INITDP 
063022 004737 025402 JSR PC,DPINIT : GO DO SOFr INIT, CHE CK THE STATE. 
6350 063026 004737 026114 JSR PC ENAINT NABLE INTERRUPTS. 
6351 063032 BISW3  CSCH. 6-#LDCP, coete : SET UP DISPLAY FILE TO LOAD CURSOR, 
063032 012746 175000 MOV ALDCP,-(SP) 
063036 053716 065142 BIS CSCH.6, (SP) 
063042 012637 065230 MOV (SP) +, CSMF3A 
6352 063046 BISW3  CSCH.8, #cuLs, CSMF 3B : ... AND SET SWITCH ENABLE 
063046 012746 146013 MOV #CUIS (SP P) 
063052 053716 065144 BIS csc H. «8, 
063056 012637 065236 V (SP) ésar F 3B 
6353 063062 BISW3  CSCH. =6 ;ALDECC! SUCHON, CSMF3C ; ... AND TURN ON SWITCH. 
063062 012746 175402 V ALDECC ! SWCHON, - (SP) 
063066 053716 065142 BIS CSCH.6, (SP) 
063072 012637 065240 MOV (SP) +, CSMF 3C 
6354 063076 112737 000377 026107 VB «#90377, INTFLAG PRIME THE INTERRUPT FLAG. 
6355 063104 DPSTART # : START TH HE D 
063104 012777 065230 117720 V #CSMF 3A, aDPC START THE SPY 
3112 004737 027454 JSR PC,WAITF + WAIT FOR DISPLAY STOP. 
6356 063116 004737 027454 JSR PC ,WAITF ; WAIT FOR STOP. 
6357 063122 017702 117704 MOV aDPC ,R2 ; SAVE THE DPC. 
358 063126 105737 026107 TSTB —sCINTFLAG : TEST FOR GOOD INTERRUPT. 
6359 063132 001412 BEQ 1$ : BR IF GOOD. 
063134 012701 063116 MOV #.-16,R1 
6361 063140 HRDERR NOSWI.INTERR 
6363 063160 020227 065252 1$: CMP R2,ACSMF 3D : DID THE DPC HIT THE STOPN? 
063164 103412 BLO 2$ : BR IF K 
6365 063166 012701 065244 MOV ACSMF3C+4,R1 + EXPECT A DPC PRIOR TO STOPN. 
6366 063172 HRDERR SWNOHLT,EXPREC 
6368 063212 2$: BISW3 #BIT15,CSMF3A+2,R1 : EXPECT DXR TO HAVE X CURSOR. 
063212 013701 065232 MOV CSMF 3A4+2,R1 
063216 052701 100000 IS #BIT15,R 
6369 063222 BISW3 #BIT15.CSMF3A+4,R3 : EXPECT DYR TO HAVE Y CURSOR. 
063222 013703 065234 V CSMF3A4+4_,R3 
063226 052703 100000 BIS #B1T15,R3 
6370 063232 005737 065150 TST CSRETRY 
6371 063236 001416 BEQ 3$ 
6372 063240 004737 065520 JSR PC ,RDDXY ; GET MASKED DXR, DYR INTO R2,R4. 
6373 063244 IFERRX2 SWNOCU,RLXYE 
063244 020102 CMP R1,Re : 1ST ITEM OK? 
063246 001002 BNE asg" : NO. 
063250 020304 CMP R3,R4 : 2ND ITEM OK? 
po ssee satis 65$ BADER SoNOCU RLXYE, : NO ; 
same 063274 64$: 
6375 063274 004737 026176 3S: JSR PC ,DSBINT 
6376 063300 ENDSEG ;2>>>>>>>>>>>END SEGMENT 
6377 063302 004737 026074 JSR PC, DPRESET : DO SOFT INIT. 





14 
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CURSOR REGISTERS/SWITCH/MATCH 


gee 


TEST 23 


6394 063436 
6395 063444 
6396 063446 
063446 
063454 
6397 063460 
6398 063462 
3462 


SSSASSS SESS 

SaTRAFUNASS 

SS SSSSRBS 
WIAIWIN 


Rn 


004737 
112737 


012746 
3/18 


3 


SonoNNNNNN 
Wo CN 
NNNNN 


oooo 
oo 


ceogess 
MININOVA 
wW 
N 


WWW NIN 
ANN NNN 


026074 
000000 
146076 
065144 
065320 
175000 
065142 
065324 
175402 
065142 
065314 


146152 
4b 


000001 


065254 
027454 


065270 
027454 


026114 


000200 


026106 


065422 
065440 
065456 


026106 
027700 


117356 


117342 


065422 
440 
065456 


026106 


: VERIFY THE CURSOR MATCH OPERATION. 
CSMT15: JSR 
BGNSEG 


11$: 


1$: 


2s: 
3$: 


30$: 


4$: 


MOVB 
B1Sw3 
MOV 
BIS 
MOV 
BISw3 
MO 


PC ,DPRESET 


#0, INT 
cst. 8, #CUIM! CUON, CSMF 4B ; 
UON ,=(SP) 


tSCH. 8, (SPS 
(SP)+, CSMF4B 


oz 
or 
oO 


H.6, (SP) 
(SP) +, CSMF4LC 


CSCH.6, #LDCP, CSMF4LC 
DCP,-(SP) 


SOFT 


DO 
$<<KkK<<< <<< <<BEGIN aT Eee 
EXPECT INTERRUPTS 

RT CHANNEL # IN FILE. 


DON'T 


CSCH.6 rt ihe ts ae oCSMF4C 


#LDECC TSWCHON =(SP 


o 
nn 


CH. 
ta 


MF GC 
CSCH. s° SCURD | JSWE ! JMWE ! JCWE, CSMF4J 


PCURD ZISWE! JMWE JCUE, -(SP) 


C,DSBIN 
#IOKCKIN! IOKJSM, INTMASK ; 
LOOPK 3; ARE WE 


#B1T0, 
1$ 


ACSMF4V 
#CSMF4V ,aDPC 
4% oWAITF 


ACSMF4U 
#CSMF4U, @DPC 
PC, WAITF 


PC,ENAINT 
#CSMPTB,CSMPY 
#CSMPTB ,CSMPX 
@CSMPY ,CSMF4Y 
@CSMPX , CSMF 4X 
INTLAC 


#B1T1,CSMF4Y 


#4, CSMFGF+2 
wi 4, CSMF4G+2 
m2, *CSMF4H+2 


TT elie 
FS et 
#M!4,CSMF4H+ 


#IOKCKIN, INTMASK 


STAR 


3 ASSUME NON-INTERLACED POSITION 


pea 


INSERT 


WAIT "FOR DISPLAY STOP. 


SAY MATCH INTR OK, WE WILL CHECK. 
IN AN ODD-NUMBERED ITERATION? 


; BR IF NO. 
YES > hae THE SETUP FILE FOR VISUAL. 


START TO PUT MEMORIES IN WRITE-ONLY MODE. 


TART TH 
WAIT FOR DISPLAY STOP 
3 KECK EEE E KEKE EKKER EERE END SEGMENT. 


- AND 


pny INTERRUPTS. 


BA 
- AND BELOW Y BY 2. 
ODD fm ~~ SETUP FOR gets 
D BACK D 


OWN TO Y 


3 ee. BUT DOWN TO Y-4. 
3 <6 <<< << << << <BEGIN SEGMEN; 


WE AN ODD LINE? 
F YES -- SAN WRITE ABOVE, NOT BELOW 
LINE =~ SETUP F 


Y+4, 


: SAY WE'LL CHECK UNEXP. INTR. 


SEQ 0171 


deemaaienaiiaal 


0.14 
G MACRO M1113 28-OCT-81 11:23 PAGE 93-1 


} 
SS | 





VSV11/VS11_== GRAPHIC SYS. DIA 
eee TEST 23 CURSOR REGISTERS/SW1TCH/MATCH SEQ 0172 
6420 063626 013705 065150 MOV CSRETRY,R5 
6421 063632 013701 069526 MOV CSMF4X,R1 
6422 063636 013703 065330 V CSMF4Y.R3 
6423 063642 052701 100000 BIS #B1T15.R1 
6424 063646 052703 100000 1S WBIT15.R3 
6425 063652 BISW3 CSCH.8,#WECC,aDYR : CLEAR THE SWITCH 
06365 012746 160000 MOV WWECC,-(SP) 
063656 053716 065144 BIS CSCH.8, (SP) 
063662 012677 117152 MOV (SP)+,aDYR 
6426 063666 004737 027454 JSR PC WALTE 
6427 063672 112737 000377 026107 43$: § MOVB  4#*0377,INTFLAG : PRIME THE INTERRUPT FLAG 
6428 063700 DPSTART #CSMF4D 
063700 012777 065334 117124 MOV WCSMF4D,aDPC = ;_ START THE DPU. 
063706 004737 027454 JSR PC, WwAl TF : WAIT FOR DISPLAY STOP. 
6429 063712 017702 117114 MOV aDPC,R2 
063716 10573 026107 TSTB INTFLAG ; ANY INTERRUPTS? 
6431 063722 00241 BLT 403$ 
6432 063724 010146 MOV R1,-(SP) 
6433 063726 012701 063710 MOV #.-14.,R1 
6434 063732 HRDERR' IFAULT,INTERR 
6435 063752 012601 V (SP)+,R1 
6436 063754 403S: 
6437 063754 004737 065520 JSR PC,RDDXY 
6438 063760 020102 CMP R1.R2 
6439 063762 001002 BNE 44$ 
6440 063764 020304 CMP R3,R4 
6441 063766 001414 BEQ 45$ 
6442 063770 005305 44$: DEC RS 
6443 063772 100337 BPL 43$ 
6444 063774 HRDERR CRWRE,RLXYE 
ort ratty, 000137 064710 458 JMP 8$ ; GO TRY THE NEXT COORDINATES. 
6447 064020 112737 000202 026106 MOVB MIOKCKIN! IOKJSM,INTMASK ; SAY WE‘LL CHECK FOR MATCH 
6448 064026 112737 000377 026107 MOVB #*0377,INTFLAG : PRIME THE INTERRUPT FLAG. 
6449 064034 DPCONT 
034 052777 000001 116770 BIS #B1T0,aDPC : CONTINUE THE DPU. 
064042 004737 027454 JSR PC, WAI TF t WAIT FOR DISPLAY STOP. 
6450 064046 012701 000100 MOV #100,R1 : SETUP A WATCHDOG COUNTER. 
6451 064052 105737 026107 40$: TSTB —INTFLAG : DID WE’ GET AN INTERRUPT? 
6452 064056 100002 BPL 41$ ; BR IF YES. 
6453 064060 005301 DEC 1 
6454 064062 003373 BGT 40$ 
6455 064064 017702 116742 41$: MOV aDPC ,R2 : GET DPC FOR ERROR. 
6456 064070 017737 116742 003170 MOV @DXR, SDXR 
6457 064076 017737 116736 003172 avr. 
6458 064104 105737 026107 TSTB —sINTFLAG 
6459 064110 001417 BEQ 5$ : WAS IT A GOOD INTERRUPT? 
6460 064112 002434 BLT 50s : BR IF NO INTERRUPT OCCURRED. 
6461 064114 010146 MOV R1,-(SP) 
6462 064116 012701 064052 MOV #40$,R1 
6463 064122 HRDERR NOCMI,INTERR 
6464 064142 012601 MOV (SP)+-R1 
6465 064144 000137 064204 JMP 
onee aay 027727 116656 065372 - CMP @DPC,MCSMF4K+2 ;:DID WE GET TO THE STOPN (NO MATCH) 
° + 5 H N MATCH)? 
6469 064156 001040 BNE 51$ : BR IF NO 


xtt 


TEST 2 


6502 

6503 064456 

6504 064462 
462 


064470 
6505 064474 
064474 


RSOR 
000137 
020227 
001011 


000412 
000137 


012701 


NO 
N 
N 
oO 
N 


= 


012701 


012777 
017702 


020102 


REGISTERS/SW1TCH/MATCH 


064520 


50$: 
065370 


501$: 


064520 


51$: 


65$: 
64S: 


065326 


116470 


67$: 
66$: 


100000 116430 
027454 
000004 
116414 
116412 


69$: 
68$: 


110000 6$: 


000002 116344 
116340 


VSV11/VS11_== ns SYS. DIAG MACRO M1113 28-OCT-81 11:23 PAGE §3-3 


_ oe 


inp COME Tr. i MM genes 


R2,4 

eois 
CMNOMI , PNTCOOR 
NOMAT , PNTCOOR 
7$ 


BNE 
HRDERR 
BR 
HRDERR 
JMP 


; GO SEE IF OTHER THINGS CHECK OUT. 


sabe tyes 
ae WE DO A MATCH STOP? 


YES 


GO CHECK OTHER MATCH DATA. 
:NO march AT AL 


; GO SEE IF IT MATCHES ELSEWHERE. 


COME HERE IF WE THINK WE GOT A MATCH 


: EXPECT DPC TO BE JUST AFTER MATCH. 
EXPECT DSR TO SHOW LVEC & ALL PIX BITS 


MOV #CSMF 4K 
MOV a VECIACL. R3 
MOV aDPC,R2 
MOV @DSR.R4 
IFERRX2 MATPCS,EXPRC2 
CMP R1,R2 
BNE 658 

CMP R3,RG 

EQ 64 

HRDERR MATPCS,EXPRC2, 
MOV CSMF4X,R1 
MOV CSMF4Y.R3 
MOV @DXR,R2 
MOV @DYR,R4 
IFERRX2 MATXYE,EXPRC2 
CMP R1,R2 
BNE 67$ 

CMP R3,R4 

EQ 66 
HRDERR MATXYE,EXPRC2, 
MOV #RSTPOS ,aDXR 
JSR PC ,WAITF 
ADD #4.R1 
MOV @DXR,R2 
MOV @DYR.R4 
IFERRX2 MATPOS, EXPRC2 
CMP R1,R2 
BNE 69$ 

CMP R3_R4 
BEQ 6 
HRDERR MATPOS,EXPRC2, 
MOV #LVEC,R1 
RDDSRA FLG,.R 
MOV #SELFLG,aDSR 


MOV aDSR,R 
IFERROR oe TELE -FLGER. 7S 
CMP R1,R 


3 GET aciual DPC. 
: AND THE DSR. 


+ 2ND ITEM OK? 


1ST ITEM OK? 


; NO. 


: GET a MATCH X 


GET pxk, “SHOULD HOLD MATCH X 
GET DYR, SHOULD HOLD MATCH Y. 


1ST ITEM OK? 
2ND ITEM OK? 
YES. 
NO. 


+ RESTORE a) POSITION TO DXR, DYR 
WAIT FOR STOP. 
x sHoutp “BE Xx (MATCH) +4 


: GET aciuaL DXR 
AND DYR. 


: 1ST ITEM OK? 
: 2ND ITEM OK? 
YES 


; GET Fare EXPECTED FOR FLAGS. 


; READ Fic INTO R2 . 


OK? 


SES 0173 


F 14 
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eee TEST 23 CURSOR REGISTERS/SW1TCH/MATCH SEQ 0174 
064476 001410 BEQ 7$ : YES. 
064500 ‘ HRDERR MATFLE,FLGER, =; NO. 
6506 064520 112737 000377 026107 7S: MOVB = #*0377, INTFLAG PRIME THE INTERRUPT FLAG. 
6507 064526 DPSTART #CSMF4E : START AGAIN TO SEE IF WE GET BAD MATCH 
064526 012777 065372 116276 MOV ACSMF4E,@DPC =; START THE DPU. 
064534 004737 027454 JSR PC ,WAITE t WAIT FOR DISPLAY STOP. 
6508 064540 004737 027454 JSR PC, WAITF 
6509 064544 105737 026107 TSTB —INTFLAG : DID WE GET AN INTERRUPT? 
6510 064550 002421 BLT 17$ : ir , 7 
6511 064552 001446 BEQ 18$ + BR IF GOT ‘'GOOD'’ INTERRUPT. 
6512 064554 017702 116252 MOV aDPC .R2 
6513 064560 010146 MOV R1,-(SP) 
6514 064562 012701 064542 v #.-1 
6515 064566 HRDERR MATUI,INTERR 
6516 064606 012601 (SP) 
6317 064610 000137 064710 1%4 RS 
6519 064614 17$: 
6520 064614 012701 065472 MOV ACSMF414+2,R1 : GET EXPECT STOP DPC. 
6521 064620 012703 173200 MOV #STOPN!GOLD,R3 DSR SHOULD HAVE STOP + GOLD COLOR. 
6522 064624 017702 116202 MOV aDPC ,R2 : GET THE DPC. 
523 064630 017704 116200 MOV @DSR.R4 * GET THE DSR 
6524 064634 IFERRX2 MENDPCS ,EXPRC2 
064634 020102 CMP R1,R2 : 1ST ITEM OK? 
064636 001002 BNE 71$ 3 NO. 
064640 020304 CMP R3,R4 : 2ND ITEM OK? 
064642 001410 BEQ 7 : YES. 
064644 71$: HRDERR MENDPCS,EXPRC2, ; NO. 
064664 70$: 
6525 064664 000137 064710 JMP as 
G3e? 064670 18$: HRDERR MATUI,PNTCOOR 
6529 064710 8$: ENDSEG 3>>>>>>>>>>>>END SEGMENT 
6530 064712 062737 000002 065022 ADD #2,CSMPX" : BUMP POINTER TO X DATA. 
6531 064720 023727 065022 065136 CMP CSMPX, #CSMPTE : IS X POINTER AT END OF TABLE? 
6532 064726 103002 BHIS 9$ : BR IF YES -= GO DO NEXT Y. 
63 0647 063524 JMP 3$ : LOOP BACK. 
6535 064734 062737 000002 065024 9S: ADD #2, CSMPY 
6536 064742 023727 065024 065136 CMP CSMPY , ACSMPTE : IS Y POINTER AT END OF TABLE? 
6537 064750 103002 BHIS  10$ : BR IF YES == WE*RE DONE. 
6538 064752 000137 063510 JMP 2s : NO == GO DO NEXT Y. 
6539 064756 10S: 
6540 
6541 064756 CSMNEXT: 
6542 064756 005237 065140 INC CSCHAN : INCREMENT TO NEXT CHANNEL 
6543 064762 023727 065140 000004 CMP CSCHAN, #4 : DID WE DO ALL AVAILABLE CHANNELS? 
6544 064770 90200¢ BGE : BR IF YES - TO EX 
6545 064772 000137 060210 JMP CSMLOOP : NO. LOOP BACK TO TEST NEXT CHANNEL. 
6546 064776 1$: 
6547 064776 CSMEND: COMEND CSMITR 
064776 004737 027646 JSR PC, LOOP ; REPEAT 'TIL LOOPER EXPIRES. 
065002 103401 BCS 64$ 


065004 000402 BR 65$ 
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eee TEST 23 CURSOR REGISTERS/SWITCH/MATCH SEQ 0175 


065006 000137 060204 64$: JMP CSMITR 
065012 004737 030072 65$: JSR PC, TSTEND : PRINT ERROR SUMMARY, IF REQ'D. 
6548 065016 CSMXIT: EXIT TST 
6549 
st 
635 : TABLE OF MATCH POINTS == ALL VALUES ARE USED FOR X AND Y: 
6554 065022 000000 CSMPX: .WORD 0 
6355 065024 000000 CSMPY: <.WORD 0 
6557 065026 000000 000002 000004 CSMPTB: .WORD 0,8111,8112,B1T3.B1T4 : FIRST, FLOATING 1 ON O'S, BITS 2 
6558 065040 000040 000100 000200 "WORD B1T5,B116,B117,B118,B1T9 sities THRU 9. 
6559 001776 A1=*01776 sALL 1°S FOR TION 
6560 065052 001776 001774 001772 “WORD A1,A18*CBIT1,A1®*CBIT2 SercBITSLA THEN, FLOATING 0 ON 1°S 
6561 065064 001736 001676 001576 “WORD A16*CBITS A16*CBIT6,A1€*CBIT7, MesceiTe a eie*ceiTd 
6562 065076 001252 000524 001462 “WORD 1252,524,1462,636 ; ALTERNATING BITS AND PAIRS. 
6563 065106 000006 000016 000036 "WORD 6,16.36, 76,176,376 
6564 065122 001770 001760 001740 “WORD 0616.36 76,178,376) on a400 
6969 065136 000000 CSMPTE: .WORD 0 
6567 065140 000000 CSCHAN: .WORD 0 
6568 065142 000000 CSCH.6: .WORD 0 
6569 065144 000000 CSCH.8: .WORD 0 
6370 065146 000000 CSCH.11: .WORD 0 
; 6372 065150 000002 CSRETRY: .WORD 2 
6574 EXTENDED PRINTOUT FOR SYNC CHANNEL: 
6575 065152 PRSYCH: aga #F SYCHAN, CSCHAN 
6576 065176 000207 RTS PC 
6978 :DISPLAY FILES FOR CURSOR/SWITCH/MATCH TEST -= 
580 065200 175000 000000 000000 CSMFIA: .WORD LDCP,0.0 :LOAD CURSOR POSITION REGISTERS 
6581 065206 146100 CSMF1B: .WORD CURD SREAD THEM BACK 
6582 065210 173000 “WORD  STOPN 
6584 065212 146052 CSMF2A: .WORD CUIOFF!CUOFF |=; CLEAR ALL ENABLES 
6585 065214 146012 CSMF2B: .WORD CUIOFF : DO GENERAL WRITE 
6586 065216 146100 173000 CSMFOC: .WORD CURD,STOPN * READ CURSOR (ENABLES COME TOO), THEN STOP 
6587 065222 146077 CSMFOD: .WORD 14977 : SET ALL ENABLES 
6588 065224 160000 065214 “WORD DJMP.CSMF2B : THEN GO DO GENERAL WRITE AND READ. 
6590 065230 175000 001332 002464 CSMF3A: .WORD LDCP,*01332,°02464 ; LOAD CURSOR WITH SOME DATA 
6591 065236 146013 CSMF3B: .WORD : ENABLE SWITCH INTERRUPT 
6592 065240 175402 CSMF3C: [WORD LDECC!SWCHON =: TURN ON THE SOFT SWITCH 
6593 065242 164000 164000 164000 “WORD NOP, DNOP,DNOP, pNOP DO SOME NO-OPS == SHOULD STOP 
594 065252 173000 CSMF3D: :WORD STOPN > STOP == SWITCH DIDN'T WORK 
6996 :DISPLAY FILE FOR CURSOR MATCH TEST: 
6598 065254 176074 176474 177074 CSMF4V: .WORD RDWRT!CHO,RDWRT!CH1,RDWRT!CH2,RDWRT'CH3 ; MEMORY SETUP, R/W. 
6599 065264 160000 065300 "WORD DJMP,CSMF4A 


6600 
6601 065270 176034 176434 177034 CSMF4U: .WORD WRT!CHO,WRT!CH1,WRT!CH2,WRT!CH3 ; MEMORY SETUP, WRT-ONLY. 


*< 


H_14 
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VSV11/VS11_== GRAPHIC SYS. DIA 
eee TEST 23 CURSOR REGISTERS/SWITCH/MATCH SEQ 0176 
6602 065300 170140 CSMF4A: .WORD CLRMEM : CLEAR THE MEMORIES. 
6603 065302 160001 065320 “WORD DJMS,CSMF4B : GO TURN ON CURSOR AND MATCH ENABLE 
6604 065306 160001 065314 173000 ;WORD DJMS,CSMF4C,STOPN : TURN SWITCH ON, AND STOP 
6605 065314 175402 165000 CSMF4C: .WORD LDECC!SWCHON,DPOP + TURN SWITCH ON, AND RETURN. 
ret 50S 065320 146076 165000 CSMF4B: .WORD CUON!CUIM,DPOP ENABLE CURSOR AND MATCH. 
6608 065324 175000 CSMF4LC: .WORD LDCP : LOAD cURSOR POSITION. 
6609 065326 000000 CSMF4X: .WORD 06 : 
6610 065330 000000 CSMF4Y: .WORD 0 iY 
6611 065332 165000 .WORD  DPOP : RETURN. 
6613 065334 114000 160001 065326 CSMF4D: .WORD APNT,DJMS,CSMF4X i SET MATCH POSITION 
6614 065342 160001 065324 -WORD DJMS.CSMF4LC OAD CURSOR POSITION. 
6615 065346 146152 173000 CSMF4J: .WORD CURD! JSWE! JMWE!JCWE, sToPh STOP FOR CHECK. 
6616 065352 160001 065320 “WORD DJMS,CSMF4B ; GO TURN ON MATCH ENABLE 
6617 065356 160001 065314 “WORD DJMS.CSMF4C : GO TURN ON SWITCH 
6618 065362 113774 [WORD LVEC!ALL 3 SET TO WHITE. 
6619 065364 040004 000000 “WORD 1'4,0 DRA + SHOULD MATCH 
6620 065370 173000 CSMF4K: .WORD STOPN S ide wit nee “aT F 
6621 065372 114000 160001 065326 CSMF4E: .WORD PNT, DJMS , CSMF 4X ; RESTART. SET POINT 
2 065400 113600 [WORD LVEC! YELLOW : CHANGE COLOR 
6623 065402 2 000000 “WORD 2,0 : ... THEN MOVE TO X+2, Y. 
6624 065406 041776 000000 061776 “WORD 1 'MAXX,0, 1 !M!MAXX,0 + DRAW OUT TO RIGHT AND BACK. 
6625 065416 113300 “WORD LVEC! VIOLET 
6626 065420 020002 000002 CSMF4F: .WORD M!2,2 : 60 TO ABOVE MATCH POINT 
6627 065424 040000 001776 040000 .WORD 1!0,MAXY,1!0,M!MAXY : ... AND DRAW UP AND BACK. 
6628 065434 113500 "WORD LVEC! EGGBL 
6629 065436 020002 020002 CSMF4G: .WORD M!2.M!2 
6630 065442 061776 000000 041776 [WORD 1 'MiMAXX.0,1 !MAXX,0 ; DRAW LEFT AND BACK. 
6631 065452 113200 [WORD LVEC!GOLD 
6632 065454 000002 020002 CSMF4H: .WORD 2,M!2 
6633 065460 040000 021776 040000 “WORD 110 ,MIMAX XY, 1!0,MAXY 
6654 065470 173000 173000 CSMF4I1: :WORD STOPN.STOPN 
6636 ; SUBROUTINES: 
6637 [GET CURSOR COORDINATES, AND READ MASKED DXR, DYR INTO R2. R4 -- 
6638 065474 004737 027454 GETCURS: JSR. PC, WAITF WAIT FOR STOP BIT. 
6639 065500 Blsu3 CSCH. 8. #URTJSS!BIT6,@DXR t RETRIEVE CURSOR FROM SELECTED CHAN. 
065500 012746 042100 MOV #WRTISS'!B1T6,-(SP) 
065504 053716 065144 BIS CSCH Bis ) 
065510 012677 115322 MOV (SP 24 @DXR 
6640 065514 004737 027454 JSR PC ,WAITF WAIT FOR STO 
6641 065520 RDDXY: BICW3 #*C<BIT15!*03777>, aDxR, ro“ pa TO Ro. “LEAVE FLAG & COORD. 
065520 017702 115312 MOV XR,R2 : 
065524 042702 074000 BIC a cebiT T15!*03777>,R2 
6642 065530 BICw3 #°(<B1T15!*05777>, @DYR.R4 ; DYR TO R4, LEAVE FLAG & COORD. 
065530 017704 115304 MOV apy 
065534 042704 074000 BIC #2C1T15!*03777>,R6 
6643 065540 000207 RTS 
6645 :GET JOYSTICK ENABLES- 
6646 065542 004737 027454 GETJSE: JSR PC, WAITF : WAIT FOR STOP. 
6647 065546 BI sus CSCH.8 ,#WRTJSS'BIT6, aDXR ; READ CURSOR 
065546 012746 042100 MOV HIRT ISS 'BIT6,-(SP) 
065552 053716 065144 BIS CSCH.8, (SP) 
065556 012677 115254 MOV (SP)+, aDXR 
6648 965562 004737 027454 JSR PC ,WAITF 





ea 
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eee TEST 23 CURSOR REGISTERS/SWITCH/MATCH 


6649 065566 RDJSE: co. #*C<BITIS! JSSIES! JSMIES>,@DXR,R2 ;DXR TO R2, LEAVE ENABLES 


065566 017702 115244 
065572 042702 063777 BIC #°C<BIT15! JSSIES! JSMIES>,R2 

6650 065576 BICw3 ae @DYR,R4 ;DYR TO R4. 
065576 017704 115236 MOV apy 
065602 042704 067777 BIC oe cebIT15S!CHIE>.RG 

6651 065606 000207 RTS PC 

6653 065610 END. TEST 


FRARAAAAAAAEAEAEEARAARAAEEAERERAERARERAEEAR ARERR AEAEERARAAREAAEREREAREREREEEREE 
*® 

° 

:* END TEST 23 

** 

° 

e 


MARRARRASLALALAALELALALAALALLALELELE REALE SEER ERR RE EEE EER RRR EEE SSPE ES 


SEQ 0177 
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GRAPH=HISTOGRAM X 


wee TEST 24 


6655 


6656 065664 
6657 065670 
6658 065672 


6679 
6680 065776 
6681 


MmrMrVon— 
SeNOf 


005737 
001402 


= 
-_ 
™m 


LLSESSSSss 
2 oo oe 
yet atte he ht 

Ww 

™N 


002502 


027702 
027054 


001600 


066340 
177700 
010000 
066334 


114776 


022300 


003234 
0 


066352 


SRR AEAEEEAEAEAAEREREEAAARARERAERREAERAEAREREEAEREREEEEEKE 


Se 
;* BEGIN TEST 24 =  GRAPH-HISTOGRAM X 
*® 
OTITITTi titi LD 
: (ITERATION COUNT = 10.) 
TST DPUMOD ;DPU ONLY ??? 
BEQ GHXTST sNO, EXECUTE. 
EXIT TST 3: EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 


PLOT GRAPH X = 1600 TO 200 (DELTA 30), 
uiEN DONE, REPEAT IN HISTO MODE, WITH BASE = X-20. 
DO THE SAME FOR CONNECTED-GRAPH AND FILLED HISTCGRAM, BUT AT LOWER 
INTENSITY. RUN THE MEMORIES IN ‘WRITE~1'S-ONLY' MODE TO SEE STUFF. 
REPEAT EACH INCREMENT 10 TIMES AFTER QUICK PASS. 


FOR Y = 76 TO 2. 


GHXTST: JSR PC, TSTGO TITLE 
MOV #20S, EXTA 3SET ERROR EXTENSION ADDRESS. 
JSR PC, LUMIN LAST LUT. 
JSR PC, EP RRUI SINT IN R/W-1"S-ONLY MODE. 
MOV L . TEMP + SAVE A COPY OF LOOPK. 
MOV #GHX!ALL, XA-2 SET G/H=-X MODE WITH MAX INTENSITY 
MOV #0,GHXTYP ‘START W WITH GRAPH FUNCT ry 
8$: MOV GHITYP.XA ;SETUP THE FUNCTION IN FILE 
BIS #1600,X ee AND SET IN THE X AMPLITUDE 
MOV 41560 SHXT #2 s INIT BASE = X-2 
MOV #cyl 176 YI SINIT Y W INCREMENT = 76. 
MOV #1600,R4 SINIT EXPECTED X 
1$: BGNSEG 5 RKKK KKK EEE K KEKE KKK KKK KKK BEGIN SEGMENT. 
MOV YI,R1 
BIC #*C77,R1 :SET CURRENT INCR IN R1. 
2$: CLR R5 sINIT EXP Y. 
BIS #GHIINH,XA 
a #GHXT ,aDPC sSTART NEW INCREMENT. 
3$: INC aDPC sRESUME, PLOT NEXT POINT. 
JSR PC ,WAITF 
BIT AGHIINH,XA 
BNE 13$ 
ADD R1,R5 EXP . a. 
13$: a ra ‘EMECK RETURNED X X AMP... 
CMP aDYR,RS z..-AND Y = Y + INCR. 
BEQ 5$ 
4$: HRDERR GHXF ,XYERR sGHX FAILS. 
5$: BIC gy ree 
a4 R5 ,AMAXY Me etc at pall ?? 
ENDSEG $ KKK KKK KKK K KK KKK KKK KKKKKKKS END SEGMENT. 
LOOPTO 1$ 3; REPEAT... 


JSR PC,LOOP 


SEQ 0178 
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eee TEST 24 GRAPH=HISTOGRAM 
066130 103722 acs 1$ 
ore 
6705 066132 013737 003234 027700 MOV TEMP « gL OOPK sRESET LOOPER. 
6706 066140 023727 066340 174102 CMP YI,AGYI!2 
6707 066146 001414 BEQ 63" :BR IF LAST INCR DONE. 
6708 066150 162737 000002 066340 SUB #2,Y1 OTHERWISE SET NEXT INCR... 
6709 066156 162737 000030 066352 SUB #30,XA :.. AMPLITUDE... 
6710 066164 162704 000030 SUB #30,R4 
6711 066170 162737 000030 066336 SUB #30. GHXT+2 .AND BASE LINE. 
6712 066176 000677 BR 1$ 760 NEXT SET. 
6714 066200 005737 066332 6S: TST GHXTYP ;JUST DID _GRAPH? 
6715 066204 001004 BNE «BR AHEAD IF NOT. 
6716 066206 012737 040000 066332 MOV #HST,GHXTYP VES. SET HISTO MODE 
6717 066214 000652 BR T. 
6718 066216 023727 066332 060000 30S: CMP GHXTYP,#FHST * UST DID FILLED-HISTO? 
6719 066224 001417 BEQ 10$ [DONE IF YES. 
6720 066226 162737 000400 066350 SUB #B1T8,XA-2 :1F NOT. DECREMENT INTENSITY. 
6721 066234 023727 066332 040000 CMP GHXTYP,#HST :JUST DID HISTO. ? 
6722 066242 001004 BNE i+ 2 -BR AHEAD IF NOT. 
6723 066244 012737 020000 066332 MOV WCGRPH,GHXTYP ;1F YES, NOW DO CONN-GRAPH 
6724 066252 000633 BR 8$ 
6725 066254 012737 060000 066332 31$: MOV #FHST,GHXTYP “DID C-GRPH, NOW DO F-HIST 
6726 066262 000627 BR x3 nee 
6728 066264 004737 027514 10$: JSR PC,PAUSE1 
6729 066270 004737 030072 JSR PC. TSTEND 
06627 EXIT TST : EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 
6732 : ON ERROR, SHOW X AMPLITUDE AND Y INCREMENT. 
6734 066300 20$: | PRINTX #GHXYX,XA,YI ERROR EXTENSION. 
6735 066330 000207 RTS PC 
6737 :DISPLAY CODE FOR GRAPH/HISTO X TEST. 
6739 066332 000000 GHXTYP: 0 :FUNCTION TYPE 
066334 150000 000000 GHXT:  SETHB,O SET BASE LINE. 
6741 066340 174100 YI: GYI!0 :SET Y INCR. 
6742 066342 114000 APNT 
6743 066344 000000 000000 0,0 
6744 066350 123774 GHX!ALL 
6745 066352 000000 XA: 0 :X AMPLITUDE (BIT 14 = HST MODE). 
6746 066354 


STOPN 
DJMP ,XA~2 
END. TEST 


173000 
6747 066356 160000 066350 


6749 066362 


SRAAAAAEAREAAEAEAEAEAAAAAERERAAEEAAAAERAAAEAEAAAKERARAERAAEEEERAEEAAEEEEAEEREEE 


oa 
oe END TEST 24 


MADER AELALALLSLLSLELESE ARLES ELE SEER EEE SER RSE SEE E SESSA TRESS RS ERE SY 


SEQ 0179 
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i TEST 25 


6751 


6752 066436 
6753 066442 


2 36 
6773 066544 
6774 
6775 
6776 066550 
6777 


6778 066552 
6779 066556 


6782 066572 


GRAPH=HI STOGRAM 


= 

= 

nm 
“ 
WwW 
N 


SSS RSS5588 
2 Soo 
MMP NVWwrnNw 
NNNNNNN 
Ww 
N 


042737 
020427 
103743 


004737 





002502 


027702 


022300 
003234 

4 
067110 


067112 


067124 
114232 


067124 


067124 


SEQ 0180 


SERRA AAAAAAAAAAEAAEAAAEEEAAAAAAAAAAAAAARAAAAAEEAAAAAEREARAEARAEREREREEEREE 


te 
3* BEGIN TEST 25 =  GRAPH=HISTOGRAM Y 
** 
ITITITITITITIIITITITITITITITILITI TILT LITT L LLL t LL ELL LL LLL 
3; (ITERATION COUNT = 10.) 

TST DPUMOD ;DPU ONLY ?? 

BEQ GHYTST sNO, EXECUTE. 

EXIT TST : EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 

T GRAPH Y = 1600 TO 200 (DELTA 30), FOR X = 76 TO 2. 


WHEN DONE, REPEAT IN HISTO MODE, WITH BASE = Y-20. 
DO THE SAME FOR gy SL ay gen AND FILLED HISTCGRAM, BUT AT LOWER 
INTENSITY. RUN THE MEMORIES IN 'WRITE~1°S-ONLY'' MODE TO Ste STUFF. 
REPEAT EACH INCREMENT 10” TIMES AFTER QUICK PASS. 


Gree e@e Se Se Ge Se Se 


BHYTST: JSR TGO :TITLE 
MOV #208, EXTA : SET ERROR EXTENSION ADDRESS. 
JSR PC,LUMIN : BLAST 


LUT. 
JSR PC. CLRRW1 ZINIT IN R/-1* ioe. MODE . 


MOV LOOPK , TEMP2 [SAVE A COPY 
MOV WGHY'ALL,YA-2 SET G/H-Y MODE og MAX INTENSITY 
MOV #0,GHYTYP [START WITH GRAPH FUNCTION 

8$: MOV GHYTYP,YA [SETUP THE FUNCTION IN FILE 
BIS #1600,YA ; AND SET IN THE Y AMPLITUDE 
MOV #1560,GHYT+2 ZINIT BASE LINE = Y-20. 
MOV #OX1!76 XI ZINIT X INCREMENT = 76. 
MOV 0.R5 SINIT EXP Y 

1$: BGNSEG 2 KKKK KKK EERE KEKE KK KKK KKK <<< BEGIN SEGMENT. 
MOV X1I,R1 
BIC #*C77,R1 :SET CURRENT INCR IN R1. 

2$: CLR R4 INIT EXP X... 


BIS A#GHIINH,YA 
MOV #GHYT ,aDPC 


3$: INC aDPC 

JSR PC ,WAITF 

BIT #GHIINH,YA 
13$ 


START NEW INCREMENT. 
RESUME, PLOT NEXT POINT. 


ADD R1,R4 sEXP X = X + INCR,. 
13$: a @DXR,R4 ; CHECK RETURNED X= X * INCR... 
aA gevn As 3..eAND Y = Y AMPL. 
4$: HRDERR GHYF,XYERR sGHY FAILS. 
5$: Ic #GHIINH,YA 
CMP R4 ,AMAXX ; DONE THIS a pal ?? 
LO S$ ;NOT YET, CONTINUE. 
ENDSEG : KEKE KEKE KEKE KEKE KEKE RK END SEGMENT. 


JSR PC,LOOP 


. 7 a 





eee 


ee ee ee Per ee er er er bee 
OUSWN—O 


SELSLEEESELEE 
WN-Oo0oOn 


6830 067052 
6831 067102 


6845 067134 


GRAPH=HISTOGRAM 


103722 


ts OOO 
Saronor— 


000677 


000652 


SxoSu 


oo 
par 


000207 


160600 


003234 
067112 
000030 


067104 
040000 
067104 
at 
020000 
060060 


027514 
030072 


000000 


000000 


067122 


027700 
174102 


067112 
067124 


067110 


067104 
060000 


067122 
040000 


067104 
067104 
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BCS 1$ 
MOV TEMP2 , LOOPK 
CMP XI ,AGKI!2 
BEQ 6$ 
SUB #2,X1 
SUB #30,VA 
SUB #30.R5 
SUB 430° ChYT+2 
BR 1$ 
6$: TST GHYTYP 
BNE 
4g #HST,GHYTYP 
30$: CMP GHYTYP ,#F HST 
BEQ 10$ 
SUB #B1T8,YA-2 
CMP GHYTYP,#HST 
BNE 
sg #CGRPH,GHYTYP 
31$: MOV #FHST,GHYTYP 
BR 8$ 
10$: JSR PC,PAUSE1 
JSR PC, TSTEND 
EXIT TST 


sRESET LOOPER. 


7BR IF LAST INCR DONE. 
OTHERWISE, SET NEXT INCR.. 
AMPLITUDE... 


3..AND BASE LINE. 
:DO NEXT SET. 


JUST DID ety 
AHEAD IF NOT. 
YES. SET ey MODE 
sAND GO DO IT. 
1J08T DID FILLED-HISTO? 
DONE _IF 


:IF NOT, DECREMENT INTENSITY. 
;JUST DID HISTO.? bor. 


-BR AHEAD IF 
<7 YES. NOW DO CONN-GRAPH 
[DID C-GRPH, NOW DO F-HIST 


; EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 


; ON ERROR, SHOW Y AMPLITUDE AND X INCREMENT. 


20$: § PRINTX #GHXYX,YA,XI 
RTS PC 


; ERROR EXTENSION. 


[DISPLAY CODE FOR GRAPH/HISTO Y TEST. 


GHYTYP: 0 
GHYT: 


sFUNCTION TYPE 


SETHB,0 >SET BASE LINE. 
XI: GX1!0 :SET X INCR. 
APNT 
0.0 
GHY ! ALL 
YA: 0 :¥ AMPLITUDE (BIT 14 = HST MODE). 


STOPN 
DJMP, YA~2 
END. TEST 


SEERA REEREEEARAAAREEAEEEAEEAEEAEREEEEEKEREEAERAAEEERERERERE 


te 
- END TEST 25 


SAREE EREAEAAAAAAAAAAEREAAEEEAREEAEEAERAAEEAEREEREREEEEEEE 


SEQ 0181 


ex 
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wee TEST 26 BIT MAP (1) SEQ 0182 


6847 {EAA A AREER RARER ERERA EAE RE EERE AERA RAAR AER EERRERRRRRRERARRARE EE 
** 
:* BEGIN TEST 26 = BIT MAP (1) 
Per TSSTrrTrer rer rerrerrresrrrerrrrrrrrerrerrerrr tert i ttt t tii t ttt 
3; CITERATION COUNT = 10.) 

6848 067202 005737 002502 TST DPUMOD sDPU ONLY ?? 

6849 067206 001402 BEQ BMITST :NO. EXECUTE. 

oe30 067210 EXIT TST + EXIT FAIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 

6852 : EXECUTE BIT MAP MODE 1 WITH 4 AND 8 BIT PIXELS FOR ALL 

6853 : POSSIBLE RUN LENGTHS (0 THRU 777). TEST FINAL _X/Y FOR EACH. 

6854 : IF VISUAL, DISPLAYS A WEDGE ese ING AT 0,0 WITH EVERY 

6855 : OTHER PIXEL (IN X) TURNED OFF 

6856 ; REPEAT AFTER QUICK AS BEFORE. 

4 ; PIXEL BUFFER SIZE = 256. WORDS (512. 8 BIT PIXELS MAX). 

6859 : IN THE NEW weve A COUNT OF 0 DOES 512. PIXELS, SO IT'S LAST. 

6860 067214 004737 027702 BMITST: JSR PC, TSTGO ; TITLE. 

6861 067220 012737 067506 022300 HOV #20$,EXTA : SET ERROR EXTENSION ADDRESS. 

6862 067226 004737 027054 JSR PC, LUMIN : BLAST LUT. 

6863 067232 013737 027700 003234 MOV LOOPK, TEMP2 : SAVE A COPY OF THE LOOPER. 

6864 067240 012700 000377 MOV #377,RO 3; SET PIXEL DATA PATTERN... 

6865 067244 004737 027014 JSR PC,FILL1 i -AND FILL THE BUFFER. 

6866 3 3°ON, 2 OFF IN 4 BIT MODE. 

6867 s J ON, 1 OFF IN 8 BIT MODE. 

6869 067250 012777 000001 113556 MOV #SELPCS,aDSR ;SAVE PCSAVE... 

6870 067256 017737 113552 003146 MOV aDSR,IPCSAV ; 

6871 067264 012701 136001 MOV #BM14+1,R1 3: 1ST OPCODE W/ COUNT=1. 

6872 067270 013737 003240 067550 MOV FREE ,BMiPIX ; BUFFER ADDRESS. 

6873 067276 004737 026650 1$: JSR PC, CLRRW 3; INIT IN R/W a a 

6874 067302 012704 000002 MOV #2,R4 : INIT EXPECTED X.. 

75 067306 005005 CLR Re 3..AND Y. 

6876 067310 010137 067546 2$: MOV R1,BM1PIX-2 : "SET IST/NEXT orCene.. 

ph 067314 010537 067544 MOV R5,BM1Y 3..AND Y 

6879 067320 BGNSEG 5 KKKKEK KKK KEKE KKK KKK KKK KKK BEGIN SEGMENT. 

6881 067322 012777 067532 113502 MOV #8M1,aDPC sSTART, XCT BIT MAP MODE. 

ones 067330 004737 027454 JSR PC, ,WAITF 

6883 067334 027704 113476 CMP @DXR,R4 sCHECK DXR = R4... 

6884 067340 001003 BNE 

6885 067342 027705 113472 CMP aDYR,R5S 

6886 067346 001410 BEQ 4$ 

6887 067350 3$: HRDERR BMF ,XYERR 3;BM1 FAILS. 

oss 067370 4$: ENDSEG p KKRKRK KKK KKK KKK K KKK KKK <<< END SEGMENT. 

6890 067372 LOOPTO 2$ ; REPEAT... 

067372 004737 027646 JSR PC,LOOP 

6801 067376 103744 BCS 2s 

6892 067400 013737 003234 027700 MOV Teme LOOPK :RESET LOOPER. 

6893 067406 032701 000777 BIT #777,R1 ;DONE 512. PIXELS? 
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eee TEST 26 BIT MAP (1) SEQ 0183 


6894 067412 001416 BEQ 5$ ieeeJF YES. GO SEE IF ALL DONE. 
6895 067414 005201 INC R1 :°NO, INCREMENT RUN LENGTH. 
6896 967416 04 000002 ADD #2,R4 + NO, INCR EXPECTED X... 
6897 0674 06 705 900002 ADD #2.R5 
6898 067426 032701 00077 BIT #777,R1 COUNT oveRé Low? 
001326 BNE 2$ : CONTINUE IF NOT. 
6900 067434 0201 137000 CMP R1,48M18 ZINTO 8M18? 
6901 067440 001011 BNE IF NOT. 
6902 067442 012701 136000 MOV #8M14,R1 IF YES, DO 8M14 W/ COUNT=0 
6903 067446 000720 BR .AND CONTINUE. 
067450 020127 137000 5$: CMP R1,48M18 THERE IF ACTUAL COUNT=0. 
6905 067454 001406 BEQ 10$ [DONE IF ON BM18. 
906 067456 012701 137001 MOV #8M18+1,R1 360 To. 
6907 067462 000705 BR 1$ ae ONTUNUE . 
6908 067464 012701 137000 6$: MOV #818+0,R1 :D0 on W/ COUNT=0 
6909 067470 000707 BR 2$ :..eAND CONTUNUE. 
6911 067472 004737 027514 10S: JSR PC,PAUSE1 
6912 067476 004737 030072 JSR PC, TSTEND 
+4 067502 EXIT TST : EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 
4444 : ON ERROR, SHOW THE FAILinw 9°'T MAP OPCODE. 
6917 067506 20$: § PRINTX #BMX,R1 : EXTENSION SHOWS BAD OPCODE. 
6918 067530 000207 RTS PC 
ooe0 ; DISPLAY CODE FOR BIT MAP MODE 1. 
6922 067532 164000 164000 164000 6m1: DNOP, DNOP, DNOP y se WRITE MODE (176024) *«* 
6923 067540 114000 APNT | 
6924 067542 000000 BM1X: 0 
6925 067544 000000 BM1Y: 0 
6926 067546 136000 BM14!0 : BIT MAP MODE... 
6927 067550 900000 BMIPIX: 0 +..PIXEL BUFFER ADDRESS. 
6928 067552 164000 164000 164000 DNOP, DNOP, DNOP + *e* READ MODE ( 176040) *** 
6929 067560 173000 STOPN 
6931 067562 END. TEST 


FARRAR EREEEEERARAREEEEEEEREEREREREREREREEAERERERERREEEE 
-* 

e 

:* END TEST 26 

:* 

° 

e 


SRE REEEEREREAEREAKEEEAEERAERREREREEEAEEREREEAEREEREEEK 
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eee TEST 27 BIT MAP (0) SEQ 0184 


6933 


SEEKER AAEAEEEEEAEEEEEREAAEERERKEEAERAEREAEAERKEEERAERKEKEEEEREEREKEKEEEEE 


ie 
ed BEGIN TEST 27 = BIT MAP (0) 
3 


MASBALASALASEAALE SAL EALA LAL EL ARAL ARES SEALER RARER EERE RRA ER RRR RE 


; (ITERATION COUNT = 10.) 


6934 067630 005737 002502 TST DPUMOD : DPU ONLY ?? 
6935 067634 001402 BEQ BMOTST > NO, EXECUTE. 
6936 067636 1$: EXIT TST : EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 
oo : INITIALIZE AND FILL THE BUFFER. 
6940 067642 004737 027702 BMOTST: JSR PC,TSTGO :TITLE 
6941 067646 004737 027054 JSR PC.LUMIN : BLAST LUT. 
6942 067652 004737 026650 JSR PC, CLRRW ‘INIT IN R/W MODE. 
6943 067656 012700 000377 MOV #3770. : DATA FOR 2 OR 4 PIXELS. 
6944 067662 004737 027014 - JSR PC,FILL : FALL THE BUFFER. 
6945 067666 013737 003240 070564 MOV FREE beet +12 : 1ST FRAME(S) USE BUFFER. 
6946 067674 005037 070610 CLR BMOP2+12 : 2ND USES ABS 0. 
6368 ; FIRST TEST THE RESOLUTION BIT ON A 32 SQUARE ARRAY. 
6950 067700 013737 027700 003234 i$: MOV LOOPK, TEMP : SAVE A COPY OF THE LOOPER. 
6951 067706 012701 134000 MOV 4,R1 + MODE 0, 512 RESOLUTION. 
6952 067712 010137 070562 MOV R1,BMOP1+10 
6953 067716 005037 070556 >) 2 BMOP1+ 
6954 067722 005037 070560 CLR BMOP1+6 —.._ ; ORIGIN 0,0. 
6955 067726 012704 000100 MOV #100,R4 oe 
6996 067732 010405 MOV R4RS 
6958 067734 2$: BGNSEG : ice arial nisin BEGIN SEGMENT. 
6959 067736 012777 070552 113066 MOV #BM0P1, abPc 
6960 067744 004737 070456 JSR PC ,BMOCHK ; ERROR CHECK. 
6961 067750 ENDSEG 3 KKKK KEKE KEKE EKER K EEK KKK K EK END SEGMENT. 
6962 067752 LOOPTO 2$ : REPEAT... 
067752 004737 027646 JSR PC,LOOP 
‘aoa 067756 103766 BCS 2$ 
6964 067760 013737 003234 027700 MOV TEMP2 ,LUOPK . THEN RESTORE LOOPER. 
6965 067766 012701 134100 MOV #804 'R256,R1 SHIFT TO 256 RESOLUTION. 
6966 067772 010137 070562 MOV R1,BMOP1+10 
6967 067776 062737 000040 070556 ADD #40, BMOP1+4 
968 07 062737 000040 070560 ADD #40,BM0"1+6 
6969 070012 062704 000140 ADD #140,R4 
6970 070016 010405 MOV R4,R5 
6972 070020 3$: BGNSEG KERR KKK EEE EEK K <<< <<< BEGIN SEGMENT. 
6973 070022 012777 070552 113002 MOV #BM0P1, abpc 
6974 070030 004737 070456 JSR PC ,BMOCHK ; ERROR CHECK. 
6975 070034 ENDSEG 3 KKKKK KEKE KEKE KKK KKK KK KKKKK END SEGMENT. 
6976 070036 LOOPTO 3$ : REPEAT... 
070036 004737 027646 JSR PC,LOOP 
an 070042 103766 BCS 3$ 


0.15 
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eee TEST 27 BIT MAP (0) SEQ 0185 
pede: 070044 013737 003234 027700 MOV TEMP2 ,LOOPK 3..AND RESTORE. 
one ; NOW CHECK THE EXPANSION OF A 32 SQUARE ARRAY. 
6982 070052 012701 134000 is: MOV #BM04 ,R1 ; 4 BIT, 32 SQUARE, NO EXP. 
6983 070056 000402 SKP2 
6984 070060 012701 135000 5$: MOV #BM08 ,R1 : 8 BIT, 32 SQUARE, NO EXP. 
5 07 005037 070556 CLR BMOP1+4 3: 1ST BLOCK AT 0,0° 

07 005037 070560 CLR BMOP1+6 
6987 070074 012704 000100 MOV #100,R4 ; SET EXP X AND Y. 
6988 070100 010405 MOV R4,R 
6989 070102 010137 070562 MOV R1,BM0P1+10 ; SET OPCODE. 
oy 070106 004737 026650 JSR PC,CLRRW 
6992 070112 6$: BGNSEG : Dsante BEGIN SEGMENT. 
6993 070114 012777 070552 11277% MOV #BMOP1, aDP 
6994 070122 004737 070456 JSR PC BMOCHK - ; ERROR CHECK. 
6995 070126 ENDSEG $ KKKK KEKE KKK KKK KEKE EEK KKK END SEGMENT. 
6996 070130 LOOPTO 6$ ; REPEAT... 

070130 004737 027646 JSR PC,LOOP 
6997 070134 103766 BCS 6$ 
6998 070136 013737 003234 027700 MOV TEMP2 , LOOPK 
6999 070144 062737 000040 070556 ADD #40,BMOP1+4 
7000 070152 062737 000040 070560 ADD #40 ,BMOP1+6 
7001 070160 062704 000140 ADD #140,R4 
7002 070164 010405 MOV R4,R 
7003 070166 042701 000777 BIC #777 .RI 
7004 070172 052701 000010 BIS #EX2,R ; EXPAND X2. 
ee 070176 010137 070562 MOV R1 AGP 1410 
7007 070202 7$: BGNSEG B KKK KKK RRR KEKE KKK KKK KKK KKK BEGIN SEGMENT. 
7008 070204 005277 112622 INC aDPC 
7009 070210 004737 070456 JSR PC ,BMOCHK ; ERROR CHECK. 
7010 070214 ENDSEG : KEKE KEKE KKK KKK K EKER KKK END SEGMENT. 
7011 070216 LOOPTO 7$ 

0216 004737 027646 JSR PC,LOOP 

7012 070222 103767 BCS 7$ 
7013 070224 013737 003234 027700 MOV TEMP2 ,LOOPK 
7014 070232 062737 000100 070556 ADD #100,BM0P1+4 
7015 070240 062737 000100 070560 ADD #100. BMOP1+6 
7016 070246 062704 000300 ADD #300.R4 
7017 070252 010405 MOV RG Re. 
7018 070254 042701 000777 BIC ee R1 
7019 070260 052701 000020 BIS WEX4,R1 ; EXPAND X4. 
st 070264 010137 070562 MOV R1,BM0P1+10 
7022 070270 8$: BGNSEG 3b KRKRKK KKK KEKE KKK K KKK KK KK <<< BEGIN SEGMENT. 
7023 070272 005277 112534 INC aDPC 
7024 070276 004737 070456 JSR PC ,BMOCHK 3; ERROR CHECK. 
7025 070302 ENDSEG 5 KKK KKK KKK KEK K KEK KK KKK KKK END SEGMENT. 
7026 070304 LOOPTO 8$ ; REPEAT 

070304 004737 027646 JSR PC,LOOP 

070310 103767 BCS 8$ 


7027 
7028 070312 013737 003234 027700 MOV TEMP2 , LOOPK 





i 


VSV11/VS11_== GRAPHIC SYS. DIAG MACRO M1113 28-OCT-81 11:23 PAGE 723 


ee TEST 27 BIT MAP (0) SEQ 0186 
7029 070320 020127 135020 CMP R1,4BM08'EX4 : 8 BIT MODE DONE ?? 
re 070324 001255 BNE 5$ 3; NO, GO ‘ROUND. 
703 3 : NOW TEST THE 64, 128, AND 256 SQUARE SIZES BY DISPLAYING 
ta ; THE CONTENTS OF CPU MEMORY STARTING AT LOC 0. 
7035 O703e8 012701 134001 MAPMEM: MOV 2 Vag R1 : 4 BIT, 64 SQ. 
7036 070332 012704 000200 MOV #200,R 
7037 070336 010405 MOV R4,R 3: EXP X,Y. 
38 070340 010137 070606 1$ MOV RT BMOP2+10 3; SET OPCODE. 
7040 070344 BGNSEG : rea ete ana taeate BEGIN SEGMENT. 
7041 070346 012777 070576 112456 MOV #BMOP2 ,aDPC 
7042 070354 004737 027454 JSR PC,WAITF 
7043 070360 103375 BCC -~ ; BIG ONES WILL OUTLAST WAITF TIMER. 
te 070362 737 070462 JSR PC ,BMOCHK+4 ; ERROR CHECK 60008 158s 
7046 0.1000 (356s 
7047 070366 ENDSEG ; Gaeaedbnadeimenaettcnenall END SEGMENT. 
7049 070370 737 027522 JSR PC pws, 5 
7050 070374 032701 001000 BIT #1000, : 8 BIT MODE ?? 
7051 070400 001010 BNE 2$ 3 
7052 070402 052701 0010060 BIS #1000,R1 : NO, * SHIFT 10. 8 BIT MODE. 
53 0704 75 BR * OR NOP * 
7054 070410 .023727 070606 135003 CMP BMOP2+10, #EMOB M256 
7055 070416 001401 BEQ 2s 3; QUIT AT 8 eit 256 S$ 
070420 000747 BR 1 3. WE RUN OUT OF SmEMORY. 
7057 070422 042701 001000 2$ BIC #1000,R1 : RESET 4 Bir MODE.. 
070426 005201 INC R1 3eeeSET NEXT oe” abet 
9 070430 006304 ASL R4 
7060 070432 30 ASL R5 3..AND EXP X,Y. 
7061 070434 032701 000004 BIT #4 ,R1 : DONE THRU 566 SQ. ?? 
7062 070440 173 BEQ 1$ ; NO, GO ‘ROUND. 
7064 070442 737 027514 10$: JSR PC,PAUSE1 3; ALL DONE. 
7065 070446 004737 030072 JSR PC, TSTEND 
ee 070452 EXIT TST : EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 
07 004737 027454 BMOCHK: JSR PC ,WAI TF ; WAIT FOR DONE... 
7069 070462 027704 112350 CMP @DXR,R4 z..-AND TEST X... 
7070 070466 001003 BNE 1$ 
1 07 027705 112344 CMP aDYR,R5 z...AND Y. 
7072 070474 001413 BEQ 2s 
7073 070476 1$: 
7074 070476 012737 070526 022300 MOV #3$,EXTA ; SET ERROR EXTENSION ADDRESS. 
7075 070504 HRDERR BMF,XYERR 
7076 070524 2s: 
7077 070524 000207 RTS PC 
7078 070526 3$: PRINTX #BMX,R1 3; EXTENSION SHOWS BAD OPCODE. 
i ta 070 000207 RTS PC 
7081 3; DISPLAY CODE FOR BMO TESTS. 
7082 : 
7083 070552 164000 BMOP1: DNOP 
7084 070554 114000 000000 000000 APNT, 0, 0 
7085 070562 134000 BM04!0 : 32 SQUARE, NO EXP, 









eee TEST 2 


7086 070564 
7087 070566 
7088 070572 
7089 

7090 070576 


7095 070616 
7096 
7097 070622 


000000 
164000 
160000 
17188 


00 
164000 


160000 


173000 
070554 


000000 


173000 
070576 


000000 
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7 BIT MAP (0) 


0 
DNOP, STOPN 
DJMP, BMOP1+2 


BMOP2: CLRMEM 
NT, 0, 0 
“teeie 
DNOP, STOPN 
DJMP, BMOP2 


END. TEST 


SEQ 0187 


; BUFFER ADDRESS. 


Bite ee eee tesa te SARA RASAAAASALALEASASLSLALALALESALS ELSES EATS REESE ES SY 


it END TEST 27 
* 


SRE EERE RARER ERE 
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eee TEST 28 IMAGE MEMORY CLEAR-SET SEQ 0188 
7099 
FERRARA RARER AERA RRR RAAARA EERE RARE RE RE REAR RRREREREEE 
;* 
3* BEGIN TEST 28 = IMAGE MEMORY CLEAR-SET 
*® 
Ittti titi iiiiiiiiiiii iii 
: (ITERATION COUNT = 10.) 
7100 070704 005737 002502 TST DPUMOD :DPU ONLY ?? 
7101 070710 001402 BEQ CLRTST :NO, EXECUT . 
rie 070712 EXIT TST t EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 
7104 : “'CLRMEM’’ TO ZERO, Sa PIXEL“READ-BACK, AND TEST DATA. 
7105 : '‘SETMEM’’ TO 1°S, DR 
ree ; DISPLAY MODE CINTERLACE/NON=INTERLACE) IS TRANSPARENT. 
7108 ; IF SHORT MODE, CYCLE ; Y = 0 AND 2 (ODD VS EVEN), 
7109 ; THEN CYCLE Y HOLDING X 
7110 ; REPEAT EACH PIXEL READ 10 TIMES AFTER QUICK PASS 
7111 : IF LONG MODE, CYCLE X FOR EVERY Y (512 X 512 ADDRESSES), 
nig ; READING EACH PIXEL ONLY ONCE. 
7114 070716 004737 027762 tLRTST: JSR PC,TSTGO sTITLE 
7115 070722 004737 030414 JSR PC, CONFIG : tpt ee Ei VSV SYSTEM. 
7116 070726 004737 027054 JSR PC. LUMIN 3; BLAST 
7117 070732 BGNSUB 
7118 070734 005037 072552 CLR IMC.CH 
7119 070740 013701 072552 CLRT1: MOV IMC.CH,R1 
7120 070744 006301 ASL 
7121 070746 016101 003256 MOV MEMTAB(R1),R1 
7122 070752 001002 BNE +6 ; BR IF MEMORY ON THIS CHANNEL 
7123 070754 000137 071254 JMP 11$ 
7124 070760 010137 003072 MOV R1,PDF 
7125 070764 005101 COM RT 
7126 070766 010137 003074 MOV R1,PDM 
7127 070772 013701 072552 MOV IMC.CH,R1 
7128 070776 000301 SWAB 
7129 071000 BISW3 #RDWRT,R1,CLR.ZA ; INSERT CHANNEL OF MEMORY TO TEST 
071000 010146 MOV R1,~-(SP) 
071002 052716 176074 BIS #RDWRT , (SP) 
071006 012637 071572 MOV (SP)+,CLR.ZA 
071012 005737 002504 TST IMTMOD 
7131 071016 001403 BEQ +10 2 SKIP NEXT IF SHORT MODE.. 
7132 071020 012737 000001 027700 MOV #1,LOOPK -OTHERWISE, SET = ONLY. 
7133 071026 013737 027700 003234 MOV LOOPK , TEMP2 SAVE A COPY OF LOOPK 
71 071034 005003 CLR R :R3 =, PA TTERN S. S FIRST). 
7135 071036 012777 071562 111766 MOV #CLR.Z,aDPC =XCT “CLEAR MEM TO 0°. 
7136 071044 800600 SKP2 : ‘ 
7137 071046 OO er 111760 1$: INC aDPC be ae e! wee To 1°S"*. 
7138 071052 004737 027454 JSR PC ,WAITF SWAIT ‘TIL 
7139 071056 005001 CLR R1 ‘eet x AbDRESS.. 
oy 1060 005002 CLR R2 AND Y ADDRESS. 
7142 071062 2$: 
7143 071062 010277 111752 MOV R2,aDYR ;SET Y ADDRESS. 
7144 071066 004737 027454 JSR PC ,WAITF 





ax 
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eee TEST 28 IMAGE MEMORY CLEAR-SET SEQ 0189 
7145 071072 3$: BGNSEG B KKKK KEKE KKK KEKE KKK KKK KKK BEGIN SEGMENT. 
7146 071074 010177 111736 MOV R1,@DXR zsNOW READ-BACK PIXEL DATA... 

Are 071100 004737 027454 JSR PC, WAITF 

148 071104 004737 023524 JSR PC ,ERRCHK 

149 071110 017704 111720 MOV @DSR,R4 3.-.T0 R4. 
7150 071114 100015 BPL 10$ :BR IF DPU HUNG (PRB FAILURE). | 
7151 071116 043704 003074 BIC PDM,R4 30K, JUST KEEP THE DATA BITS. 
7152 071122 020304 CMP R3,R4 :1S DATA RIGHT ?? 
7153 071124 001423 BEQ 4$ :BR IF WRONG. 
7154 071126 HRDERR IMDI,IMDERR :DATA INCORRECT. 
7155 071146 000412 BR 
jar. 071150 004737 026756 10$: JSR PC ,RELEAS zRELEASE ay DPU 
7157 071154 HRDERR PRBHNG REPORT ERROR AND QUIT. 
r38 071174 4$: ENDSEG : CREEK EKER EK EEEEE END SEGMENT. 
7160 071176 013737 003234 027700 5S: MOV TEMP2 , LOOPK :RESET LOOPER. 
7161 071206 020227 000004 6$: CMP R2,M4 "SHORT ne HOLD X... 
r16¢ 071210 103006 BHIS 8$ al 0 FOR Y = 4 TO MAX. 
7164 071212 020127 001776 7$: CMP R1,AMAXX 
7165 071216 001403 BEQ $ 3;BR IF AT MAX X. 
7166 071220 062701 000002 ADD #2,R1 sOTHERWISE, BUMP X... 
7167 071224 000722 BR 3$ 3..eAND CONTINUE. 
7168 071226 020237 003250 8$: CMP R2, YMAX 
7169 071232 001404 BEQ 9$ :DONE IF AT MAX Y. 
7170 071234 005001 CLR R1 sOTHERWISE, RESET X... 
7171 071236 062702 000002 ADD #2,R2 3 + » «BUMP Y. 
7172 071242 000707 BR 2s ** AND CONTINUE. 
7173 071244 005103 9$: COM R3 : COMPLIMENT DATA PATTERN. 
7174 071246 043703 003074 BIC PDM,R3 
ate 071252 001275 BNE 1$ sRESTART 1°S PATTERN. 
7177 071254 11$: 
7178 071254 005237 072552 INC IMC.CH : DO NEXT CHANNEL 
7179 071260 023727 072552 000004 CMP IMC.CH, #4 
7180 071266 103624 BLO CLRT1 ; LOOP THRU ALL 4 CHANNELS 
4} 3 071270 ENDSUB 
7183 071272 CLTNEW: BGNSUB 
7184 071274 052737 000006 072576 BIS #6,IMC.IR ;LET READ SEE ALL BITS 
7185 071302 012737 071612 071610 MOV #CLATAB,CLMPTR sO ART AT BEGINNING OF PATTERN TABLE 
7 071310 017700 000274 1$: MOV @CLMPTR,RO [GET ores TO CLEAR TO 
7187 071314 100515 BMI ‘NE VE IF ALL 
7 071316 042737 001777 071720 BIC #1777, CLR.D2 Ore AR OUT OLD PIXEL PATTERN 
7189 071324 050037 071720 BIS RO,CLR.D2 : INSERT THE NEW ONE 
7 071330 005700 TST RO 71S NEW A % 
7191 ; BNE 2s :IF NO, GO D DO *'SETMEM’® FUNCTION 
7192 071332 000404 BR 2s 3b0 "SET THEN TO 0 UNTIL NEW MICROCODE READY 
7193 071334 012777 071704 111470 MOV #CLR.Z2,aDPC :IF YES, DO THE ‘’CLRMEM’’ 
7194 071342 000403 BR 
7195 071344 012777 071720 111460 2$: MOV #CLR.D2,aDPC z CLEAR TO THE PATTERN 
Abe 071352 004737 027454 3$: JSR PC ,WAITF sWAIT FOR DONE 
7198 071356 005037 072552 CLR IMC.CH sSTART CHECKING AT CHANNEL 0. 
7199 071362 013700 072552 4$: MOV IMC.CH,RO ‘GET CHANNEL TO CHECK 
7200 071366 006300 ASL RO sMAKE A WORD INDEX 
7201 071370 016001 003256 MOV MEMTAB(RO) ,R1 ‘GET MASK FOR VALID PIXEL BITS 


aa 
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uae IMAGE MEMORY CLEAR-SET SEQ 0190 
7202 071374 001445 BEQ 7$ :1F 0, NO CHANNEL HERE. GO TO NEXT. | 
7203 071376 010137 003072 MOV R1,PDF :SAVE VALID MASK 
7204 071402 005101 COM : COMPLEMENT IT. 
7205 071404 057701 000200 - BIS @CLMPTR,R1 ‘INSERT THE PATTERN 
7206 0714 006201 ASR R1 s SHIFT IT DOWN TO BITS <7:0> 
7207 071412 006201 ASR R1 
7208 071414 010146 MOV AT. -(SP) ;PUT PATTERN IN LOW BYTE, 
7209 071416 110166 000001 MOVB R1,1(SP) [AND HIGH BYTE. 
7210 071422 012601 MOV (SP)+,R1 :PUT IT BACK INTO R1. 
7211 071424 012700 000400 MOV #256... [GET COUNT OF NUMBER OF wd TO FILL (256.) | 
7212 071430 013702 003240 MOV FREE ,R2 [GET ADDRESS TO PUT TEST DATA 
7213 0714 010122 5$: MOV R1,(R2)+ FILL THE TEST BUFFER | 
7214 0714 005300 DEC RO 
7215 071440 001375 BNE 5$ 
7216 071442 013737 003240 072554 MOV FREE, IMC.TA :TELL CHECK ROUTINE WHERE IT IS. | 
7217 071450 010237 072606 MOV R2,IMC.RA -- AND WHER RE TO PUT THE MEM DATA READ. 
rei8 071454 005037 072574 CLR IMC.Y START AT Y = 0. | 
7220 071460 6$: BGNSEG ; eben Wy BEGIN SEGMENT. | 
7221 071462 004737 071736 JSR PC, IMCHK ;READ AND CHECK A LINE y MEMORY DATA. 
7222 071466 ENDSEG : enenneasndaendnasaaearecte END SEGMENT 
7224 071470 023737 072574 003250 CMP IMC.Y, YMAX ;DONE LAST LINE? 
7225 071476 001404 BEQ 7 ZMOVE ON TO NEXT wey If YES. 

071 062737 000002 072574 ADD #2,IMC.Y F NO, BUMP Y & GO FOR MORE. 

7227 071506 000764 BR 6$ 
7228 071510 00523 072552 7$: INC IMC.CH ; INCREMENT THE CHANNEL NUMBER. 
7229 071514 023727 072552 000004 CMP IMC.CH, #4 ‘DONE LAST CHANNEL? 
7230 071522 00271 BLT 4$ sIF NOT, 60 FOR MORE. 
7231 071524 062737 000002 071610 ADD #2,CLMPTR IF YES, * MOVE ON TO NEXT PATTERN 
7232 071532 005737 002504 TST IMTMOD : SHORT TEST? 
7233 071536 001264 BNE 1$ : NO. 
7234 071540 023727 071610 071626 CMP CLMPTR,#CLMSHT ; YES. DONE? | 
7235 071546 1260 BNE 1$ ; NO. 
72 3 ves. 
7237 
7238 071550 8$: | 
7239 071550 ENDSUB 
7240 071552 004737 030072 JSR PC, TSTEND 
ott 071556 EXIT TST : EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> | 
7243 3CLR.Z: DNOP,CLRMEM,STOPN ;CLEAR IMAGE MEMORY. 
7244 071562 176000 176400 177000 CLR.2: PROTEC! CHO, PROTEC!CH1, PROTEC! CH PROTEC! CH3 
7245 071572 176074 CLR.ZA: RDWR 
7246 071574 116000 170100 173000 FONT ILO, SETMEM, STOPN ;CLEAR MEMORY THIS WAY UNTIL NEW MICROCODE READY | 
ise 071 117774 170100 173000 CLR.D APNT! ALL, SETMEM, STOPN SET IMAGE MEMORY TO 1°S. | 
7249 
7250 -MACRO CLP.D CPA 
coh <CPAT#B1T6>! <-CPAT= ai e17*BIT2> 
veo? 071610 071612 CLMPTR: .WORD CLMTAB | 
7255 071612 000000 CLMTAB: 0 


7256 071614 CLP.D 17 
CLP.D 10 
7258 071620 CLP.D 4 
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eee TEST 28 IMAGE MEMORY CLEAR-SET SEQ 0191 


7259 071622 CLP.D 2 

7260 071624 CLP.D 

7261 071626 CLMSHT: CLP.D 14 

7262 071630 CLP.D 11 > 

7263 071632 CLP:D 12 
071634 CLP.D 3 

7265 071636 CLP:D 5 

7266 071640 CLP.D 6 

7267 071642 CLP.D 7? 
071644 1774 

7269 071646 177777 -1 

7270 071650 000000 000000 000000 0,0.0.0.0.0 

7271 071664 000000 000000 000000 0:0.0,0.0,0,0,0 


of et te FILES FOR CLEARING MEMORY: 


7273 
7274 071704 176074 176474 177074 CLR.Z2: RDWRT!CHO,RDWRT!CH1,RDWRT!CH2,RDWRT!CH3 


1 

373 071714 170140 173000 CLRMEM, STOPN 

7277 071720 117774 CLR.D2: APNT!AL 

7278 071722 176074 176474 177074 ADURT EHO, RDWRT!'CH1,RDWRT!CH2,RDWRT!CH3 

1379 071732 170100 173000 SETMEM, STOPN 

7281 

7282 3 

on : SUBROUTINE - READ & VERIFY 1 LINE OF IMAGE MEMORY. 

7285 *ENTER WITH: 

7286 % IMC.CH = MEMORY CHANNEL TO READ (0, 1, 2, OR 3) 

7287 : IMC.Y = Y POSITION OF LINE TO BE READ 

7288 3 IMC.RA = ADDRESS OF 512.-BYTE BUFFER TO READ DATA ae 
7289 : IMC.TA = ADDRESS OF 512.-BYTE BUFFER TO TEST AGAINS 

7290 : (DATA MUST INCLUDE 1°S IN NON-EXISTENT BIT POSITIONS TO 
re9t : CATCH BAD DRIVERS & SBUS LINES) 

7293 071736 013700 072552 IMCHK: MOV IMC.CH,RO :GET CHANNEL 

7294 071742 000300 SWAB R ome INTO ee BYTE OF RO. 
7295 071744 042737 001400 072566 BIC #81T9'!BIT8, IMC.ME “CLEAR OLD CHANNEL # FROM ENABLING INSTR. 
7296 071752 050037 072566 BIS RO, IMC.ME [SET IN THE NEW CHANNEL 
7297 071756 013737 072510 072512 MOV IMCTRY, IMCRCT 

7298 071764 012777 072556 111040 IMCHKR: MOV #IMC.SR,aDPC :START THE READ. 

7299 071772 004737 027454 JSR PC WAI TF t... WAIT FOR IT TO FINISH. 
7300 071776 013702 072606 MOV IMC.RA,R2 

7301 072002 06270 001000 ADD #512. .R2 :R2 GETS FINAL ADDRESS 
7302 072006 013703 072576 MOV IMC. IR,R3 :R3 GETS WHAT DSR SHOULD BE. 
7303 072012 027702 111014 CMP aDPC Re tIS DPC CORRECT? 

7304 072016 001003 BNE 1$ 

7305 072020 027703 111010 CMP aDSR,R3 z1S DSR CORRECT? 

7306 072024 001410 BEQ 2$ 

7307 072026 1$: 

7308 072026 HRDERR IMRF,PCSERR sPRINT IF NOT. 

7309 072046 005004 2s: CLR R4 :DXR SHOULD BE 0. 
7310 072050 013705 072574 MOV IMC.Y,R5 

7311 072054 062705 000002 ADD #2,R5 :DYR SHOULD BE Y+2 

7312 072060 027704 110752 CMP @DXR,R4 TEST DXR 

7313 072064 001003 BNE 

7314 072066 027705 110746 CMP aDYR,RS :TEST DYR 

7315 0 001410 4$ 


aa 
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IMAGE MEMORY CLEAR~SET 


eee TEST 28 
7316 072074 


eo4} 072146 
7328 072150 


7332 072166 


7345 


2322 
7350 072330 
7352 072332 
7353 
7354 072334 
7355 072334 
7356 072354 
7357 072362 
7358 072366 
7359 072432 
7360 072462 
ed 072502 
7363 072504 
7364 072506 
7365 072510 
Paes 072512 
7368 072514 
7369 
7370 
7371 
7372 072552 


Srakocan 


=o 
w 
Ww 


o-—— 
= 
o 
Ww 


040 


163000 
000000 


000000 
072554 
072606 


000004 
002000 


072512 
071764 
072504 
177776 


177776 


176003 
000002 


000002 
177777 


177777 
177777 


072504 
072506 


040 


177776 


023056 
023060 


023056 
023060 


072504 


072504 
177777 


023056 
023060 


072506 


104 


3$: 
4$: 


5$: 
6$: 


10$: 


11$: 


12$: 


9$: 
BGNMSG 


ENDMSG 


HRDERR 


RTS 


PRINTX 
MOV 


IMCBDA: .WOR 
IMCRAM: 


IMCTRY: 
IMCRCT: . 


IMRF : 


IMC.CH: 


-ASCIZ 
-EVEN 


[rRO=163000 


IMRF ,XYERR 
#0,R1 

IMC. TA,RG 
IMC.RA.R5 
(R4)+, (R5)+ 
10$ 

#4,R1 
R1.AMAXX+2 
5$ 
9$ 

IMCRCT 

IMCHKR 

1, IMCBDA 

RO thee =2(R5) 
12$ 


-2(R4) ,GDDAT 
mbes ;BADDAT 


BADDAT 
#°C1774,GDDAT 
#°C 1776 ,BADDAT 
IMDI, IMCERR 
#2, 1MCBDA 


#2, IMCBDA 
~1(R4) ,-1(R5) 
6$ 

-1(R4) ,GDDAT 
“°° ;BADDAT 


PC 


TNAM 
IMCBDA, IMCRAM 
MCRAM 


SEQ 0192 


3R1 = X ADDRESS UNDER TEST. 
3R4 POINTS TO EXPECTED DATA 
:R5 POINTS TO RECEIVED DATA 
:CHECK THE DATA 


BUMP THE X ADDRESS 


: EXIT WHEN DONE WITH LINE. 


GET POSITION OF BAD DATA 
LOW BYTE BAD? 


: F NOT. 
zIF YES, GET THE DATA 
:SHIFT IT TO LOOK LIKE DBUS DATA 


DONE HIGH BYTE? 
z1F YES, GO BACK TO MAIN LOOP. 


COMPARE HIGH BYTES 


#IMDIXC, ieee IMC.Y PDF ,GDDAT ,BADDAT 
#IMDIX2, IMCRAM IM C 
#NULC ;PRINT BLANK LINE 


:X POSITION FOR PRINTOUT 
sSUSPECT RAM 


oooo 


/ DMA PIXEL READBACK FAILURE/ 
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eee TEST 28 IMAGE MEMORY CLEAR-SET 


7373 072554 990000 IMC. haw 0 ADDRESS OF TEST BUFFER 
7374 072556 176000 176400 177000 IMC.S . Petaerars protet !CH1 »PROTEC! CH2, PROTEC! CH3 
7375 072566 176074 IMC. ME: RDWR sENABLE SELECTED MEMORY 

£376 072570 114000 000000 RPNTO zSTART AT xX=0 

7377 072574 000000 IMC.Y: 0 | 

7378 072576 163006 IMC.IR: IMR8!6 sREAD, 2 8-BIT PIXELS/WORD, ALL BITS 
7379 072600 001000 000001 512.1 31 FULL ra 

7380 072604 000400 256. sWORD COUNT = 256. 

7381 072606 160000 IMC.RA: .WORD 160000 READ BUF MER 

7382 072610 173000 STOPN 3 (SHOULD STOP BY ITSELF) 
7383 072612 END. TEST 


FRA ERERERAEREREREREREREREERAERREEAERAERERERERREEERAERERERREEREE 
** 

° 

s* END TEST 28 

** 

° 

oe 


SEERA ARERAAAAAEAEAAERAAAAEAEAAAAARREAEEEREH 


SEQ 0193 
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eee TEST 29 IMAGE MEMORY INTERLACE SEQ 0194 





7385 


7386 072674 
7387 072700 
7388 072702 
389 


7395 072706 
072706 
072712 

7396 072716 

7397 072722 

7398 072724 

7399 

7400 072730 


09 
7410 072762 
62 


072770 
7411 072774 
7412 073002 


4 

7421 073042 
073042 
073044 
arene 


7422 073066 
7423 073070 
7424 073074 
17425 


005737 
001402 


EQELLSSSSASS SZ 
—-9 SOFMNNVENU— WF 4 
— WwW N NNN 

4 <4 WAN 


Sco 
On 


002502 


027702 
026074 
030414 


026650 
003256 


176034 
073134 


073124 
027454 
020000 


110002 
176003 


000004 


110042 
003270 


110024 
110006 


FERRARA AEREEERERAEEEEREREREAREEERERAREEEEARERRERERRAEREEREAEREEEREEE 
;* 
‘* BEGIN TEST 29 = IMAGE MEMORY INTERLACE 
d pqucnennncsencocensnneeusesenqaucenasqnenqesnesoenqnsqcesesconseeseses 
3; (ITERATION COUNT = 10.) 

TST DPUMOD ; DPU ONLY? 

BEQ INLAC ; NO. EXECUTE. 

EXIT TST : EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 


CHECK MEMORY INTERLACE / NON- INTERLACE BY WRITING A POINT AT 0,0. 
IF MEM IS INTERLACED, THE PIXEL DATA AT 0,2 SHOULD BE (NON-ZERO). 
IF MEM IS NON-INTERLACED, THE PIXEL DATA AT 0,2 SHOULD BE (ZERO). 


iNLAC: COMBEG 
JSR 


eGo Be Se Se Oe 


PC,TSTGO : TITLE. 
JSR PC ,DPRESET : DO SOFT INIT 
JSR PC, CONFIG > CONFIGURE VSV SYSTEM. 
1$: CLR : INIT CHAN PTR, 
JSR PC,CLRRW ; CLEAR ALL MEMORIES. 
BGNSEG 5 KRKRKKE KERR KKK EEK BEGIN SEGMENT. 
2$: 4 R5.R4 ; GET MEMORY TABLE ENTRY FOR THIS CHAN. 
MOV MEMTAB(R4),R1 8 ; (SAVE IT IN R? & R3). IS THERE A MEM? 
MOV R1,R3 
BEQ 4$ NO. 
MOV R5,R4 ; GET CHAN IN BITS 8,9. 
SWAB R4 


BIS +g R4 


MOV 4,11$ 
DPSTART AOS 
MOV #10$, appc 


SET WRITE INST FOR CURRENT CHAN - 
veee DISPLAY FILE. 


; START TH 


qj 
” 
P ) 
STRIP TE TET re TE Tere rere rererererereyrere 


E DPU. 
PC,WAITF : WAIT FOR DISPLAY STOP. 
BIT #B1T13,SYCTAB 1S MEM NON~INTERLACED? 
BEQ 3$ S. (R1 = EX OR NON-INTERLACED). 
CLR 1 NO. ADJUST R1 T 6 EX PECT FOR INTERLACED. 
3$: MOV #2,aDYR : PIXEL READ (POINT 0,2) INTO R2. 
JSR PC. WAITF 
MOV #0, aDSR 
MOV adsR Re 
BIC #176003,R2 
XOR 2,R3 AND PIXEL READ WITH MEM TAB VAL. 
BIC R3,R2 
IFERROR INLE, INLEX 
CMP R1,R2 > OK? 
EQ 64 : YES. 
ve: HRDERR INLE,INLEX, > NO. 
4$: INC R5 : NEXT CHAN, 
CMP R5 a4 : DONE? 
BNE 2s ; 


NO. 
YES. 
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eee TEST 29 IMAGE MEMORY INTERLACE SEQ 0195 


ress 073076 ENDSEG g KKKK KKK KKK KKK KKK KKK KKK END SEGMENT. 
7427 073100 COMEND 1 
100 004737 027646 JSR PC,LOOP ; REPEAT ‘TIL LOOPER EXPIRES. 
073104 103401 BCS 65$ 
073106 000402 BR 66$ 
073110 000137 072722 65$: JMP 1$ 
073114 004737 030072 66$: JSR PC, TSTEND PRINT ERROR SUMMARY, IF REQ'D. 
mse 073120 EXIT TST 3 EXIT ThIs TEST >>>>>>>>>>>>5>>>>>>>>>>>>> 
74 ; 
reel ; DISPLAY FILE. 
rt3 073124 176000 176400 177000 10$: PROTEC! CHO,PROTEC!CH1,PROTEC! CH2,PROTEC!CH3 
7434 073134 176034 11$: WRT! CH 
7435 073136 117774 040000 000000 APNT!ALL,1!0,0 
Mes 073144 173000 STOPN 
7438 073146 END.TEST 


DBAS SIOISISIIOIOISIISIOIOIOIIIDIOIISIIISIOIOISIIDIDIOIOIISIDIDIIISINIDIDEIDIIOIDIDIIIDIDDIIIIIDI IIB 
** 

° 

z° END TEST 29 

** 

° 

Ps 


8 RRR REE RARER ERE RARER 


s< 
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eee TEST 30 IMAGE MEMORY PATTERNS SEQ 0196 | 
7440 | 
$ MARA BAAAAALASALELALELALALLAALLESLAL ELE SAS ESE SELES RSE REECE EER ST ESS 
5 ** 
es BEGIN TEST 30 = IMAGE MEMORY PATTERNS 
ce REREAAAAAAAAEAAEEAERAREERAREARKKERKAEEEEKREKEEREEEEEAEEREERAEKERAEREKEEREEEEE 
3; (ITERATION COUNT = 1.) 
7441 073226 005737 002502 TST DPUMOD ;DPU ONLY ?? 
7442 073232 001402 BEQ PATTST 3NO, EXECUTE. 
re 7 073234 EXIT TST : EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 
7445 ; WRITE, THEN READ-BACK AND TEST PIXEL DATA PATTERNS. 
7446 3; USE FOUR DATA PATTERNS PER PIXEL AS FOLLOWS: 
7447 3 1. 00000000 FOUR 2 BIT O'S. 
7448 ; 01010101 BIT 1°S 
7449 5 - 10101010 OUR 2 BIT 2°S 
eras ; 4. 11111111 FOUR 2 BIT 3°S. 
7452 3 b1SPLAY MODE eo ARE VEU ACE) IS TRANSPARENT. 
7453 ; HORT DE, i ; X FOR Y = 0 AND 2 (ODD VS EVEN), 
7454 3 THEN CYCLE Y HOLDING X AT 
7455 ; READ EACH PATTERN 10 TIMES AFTER QUICK PASS. 
7456 ; IF LONG MODE, CYCLE X FOR EACH Y (512 X 512 ADDRESSES), 
ree : READING EACH PATTERN ONLY ONCE. 
7459 073240 004737 027702 PATTST: JSR PC, TSTGO ig LE 
7460 073244 004737 030414 JSR PC, CONFIG CONF LoURE VSV SYSTEM. 
re) 073250 004737 027054 JSR PC,LUMIN : BLAST 
7463 073254 BGNSUB 
7464 073256 005037 072552 CLR IMC.CH ;START AT CHANNEL 0 
7465 073262 013701 072552 PATT1: MOV IMC.CH,R1 
7466 073266 006301 ASL R1 
7467 073270 016101 003256 MOV MEMTAB(R1),R1 
7468 073274 001002 BNE +6 ; BR IF MEMORY ON THIS CHANNEL. 
7469 073276 000137 073644 JMP 11$ 
7470 073302 010137 003072 MOV R1,PDF 
7471 073306 005101 COM R1 
7472 073310 010137 003074 MOV R1,PDM 
7473 073314 013737 027700 003234 MOV LOOPK , TEMP2 sSAVE A COPY OF LOOPK. 
7474 073322 013701 072552 MOV IMC.CH,R1 
7475 073326 000301 SWAB R 
7476 073330 BISwW3 #ROWRT . R1,CLR.ZA 
073330 010146 MOV SP) 
073332 052716 176074 BIS #ROWRT, (SP) 
073336 012637 071572 MOV (SP)+,CLR.ZA 
7477 073342 DPSTART ACLR. 
073342 012777 071562 107462 MOV #CLR.Z,aDPC : START THE DPU 
073350 004737 027454 JSR PC, WAITF 3; WAIT FOR DISPLAY STOP. 
7478 073354 005001 CLR R1 3R1 = X POINTER. 
7479 073356 B03 006 CLR R2 sR2 = Y POINTER. 
7480 073360 012737 040000 074264 MOV #1, a. x : INIT DISPLAY CODE X... 
7481 073366 005037 074266 CLR Y. 
7482 073372 012705 074250 1$: MOV SPATS, RS *PATTERN POINTER => R5. 
7483 073376 012503 MOV (R5)+.R3 31ST PATTERN.. 
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eee TEST 30 IMAGE MEMORY PATTERNS SEQ 0197 
7484 073400 043708 003074 2$: BIC «NEXT PATTERN => R3. 
7485 073404 042737 901 1777 074262 BIC atria WRT.D :SET NEXT PIXEL PATTERN.. 
7486 073412 050337 074262 BIS R3,WRT.D t...IN DISPLAY CODE. 
4 073416 BGNSEG 5 RRKK KKK E KEKE KEKE KKK << BEGIN SEGMENT. 
7490 073420 012777 074262 107404 MOV #WRT.D,aDPC ;WRITE NEXT PATTERN, THIS PIXEL. 
7491 073426 004737 027454 JSR PC,WAITF 
7492 073432 010177 107400 MOV R1,aDXR sSET THE X ADDRESS. 
7493 073436 004737 027454 JSR PC,WAITF ; 
7494 073442 010277 107372 3$: MOV R2,aDYR ;NOW READ-BACK PIXEL DATA... 
7495 073446 004737 027454 JSR PC ,WAITF 
496 073452 017704 107356 MOV @DSR,R4 Seoe 10 RE. 
7497 073456 043704 003074 BIC PDM,R4 sons STRIP ANY CRAP. 
7498 073462 020304 CMP R3,R4 AND TEST THE DATA. 
7499 073464 001410 BEQ F 
7500 073466 HRDERR IMDI,IMDERR “DATA INCORRECT ERROR. 
7501 073506 9$: LOOPTO 3$ ; REPEAT... 
073506 004737 027646 JSR PC,LOOP 
073512 103753 BCS 
7502 073514 013737 003234 027700 MOV TEMP2 , LOOPK ;RESET LOOPER. 
es 073522 ENDSEG 2 KKK KKK EKER KKK KKK KKK KKK END SEGMENT. 
7505 073524 013737 003234 027700 4$: MOV TEMP2 ,LOOPK RESET LOOPER. 
7506 073532 012503 MOV (R5)+,R3 :GET NEXT PATTERN 
7507 073534 100321 BPL 2$ :...BR IF NOT TERMINATOR. 
7508 073536 020227 000004 5$: CMP R244 HOLD X.. 
44 073542 103011 BHIS 7$ :...AT 0, FOR Y 4 TO MAX. 
7511 073544 020127 001776 6$: CMP R1,4MAXX 
7512 073550 001406 BEQ 7$ ;BR IF AT MAX X. 
7513 073552 062701 000002 ADD #2,R1 OTHERWISE, BUMP X... 
7514 073556 062737 000002 074264 ADD #2,WRT.X 
7515 073564 000702 AR 1$ z...AND CONTINUE. 
7516 073566 020237 003250 7$: CMP R2, YMAX 
7517 073572 001424 BEQ 11$ L DONE IF MAX 
7518 073574 005001 CLR Ri OU ERUISE. RESET” Ke. 
7519 073576 012737 040000 074264 MOV #1,WRT.X 
7520 073604 062702 000002 ADD #2,R2 :...BUMP Y... 
7521 073610 062737 000002 074266 ADD #2,WRT.Y 
£356 073616 000665 BR 1$ 3..-AND CONTINUE. 
7524 073620 004737 026756 10$: JSR PC,RELEAS tenet 2 *"HUNG'’ D 
7525 073624 HRDERR PRBHNG - -REPORT ERROR. at QuIT. 
7526 073644 11$: 
7527 073644 005237 072552 INC IMC.CH 
7528 073650 023727 072552 000004 CMP IMC.CH, #4 
7529 073656 103601 BLO PATT1 
eh 073660 ENDSUB 
7532 073662 MPTNEW: BGNSUB 
7533 073664 013700 003240 MOV RO sSTART THE nits BUFFER'’ AT 1ST FREE LOCATION 
7534 073670 012701 000045 MOV pee. {MPLEN*MPLEN a SETUP # OF TIMES TO REPEAT PATTERN TABLE 
7535 073674 012702 000011 1$: MOV Aa R LENETH OF PATTERN TABLE 
073700 012703 074306 MOV #MPAT eT ITS ADD 
7537 073704 012320 23: MOV (R3)+, (RO)+ COPY PATTERN TABLE INTO WRITE BUFFER : 
7538 073706 005302 DEC R2 
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eee TEST 30 IMAGE MEMORY PATTERNS SEQ 0198 
7539 073710 001375 BNE 2$ 
7540 073712 005301 DEC R1 :D0 IT ENOUGH TIMES FOR 1 SCAN LINE, ALL PATTERNS 
7541 073714 001367 BNE 1$ 
7542 073716 010037 074332 MOV RO,MPCBAS :NEXT FREE LOCATION IS BASE OF "COMPARE BUFFER’’ 
7543 073722 005037 072552 CLR IMC. CH SSTART TESTING AT CHANNEL 0. 
7545 073726 026650 3S: JSR PC _CLRRW ; CLEAR ALL MEMORIES 
7546 073732 013700 072552 MOV IMC.CH,RO :GET CHANNEL NUMBER 
7547 073736 000300 SWAB = soRO INTO BITS <9:8> 
7548 073740 042737 001400 074344 BIC #CH3,MPT .WE ;CLEAR of’ CHANNEL FROM ‘WRITE-ENABLE’’ INSTRUCTION 
7549 073746 050037 074344 BIS RO, MPT .WE .AND INSERT THE CURRENT CHANNEL 
7550 073752 013700 072552 MOV IMC.CH,RO iGET THE CHANNEL AGAIN 
7551 073756 006300 ASL RO .AND MAKE IT A WORD INDEX 
7552 073760 016001 003256 MOV MEMTAB(RO).R1 GET THE MEMORY PARAMETER (PIXEL MASK) 
7553 073764 001516 BEQ R$ zIF ZERO, NO MEMORY ON THIS CHANNEL. 
7554 073766 010137 003072 MOV R1,PDF sSAVE PIXEL MASK (FOR ERROR REPORTS) 
7555 073772 006201 ASR R1 :GET PIX MASK INTO LOW BYTE 
7556 073774 006201 ASR R1 
7557 073776 005101 COM R1 :COMPLEMENT IT, TO ALLOW SETTING OF UNUSED 
7558 074000 010146 MOV R1,-(SP) .BITS IN COMPARE WORDS 
7559 074002 110166 000001 MOVB = R'1.1 (SP) “BOTH BYTES. 
7560 074006 012601 MOV (SP) Rl 
7561 074010 013700 074332 MOV RO :START AT BEGINNING OF COMPARE BUFFER 
7562 074014 012702 000412 MOV #256. SAPLENS1 R2 
7563 074020 013703 003240 MOV FREE R3 ZAND AT WRITE BUFFER 
7564 074024 012310 4$: MOV {R34 (RO) :COPY WRITE BUFFER INTO COMPARE BUFFER, 
7565 074026 050120 BIS (RO) + .SETTING UNUSED BITS. 
7566 074030 005302 DEC 
7567 074032 001374 BNE 
7568 34 010037 072606 MOV AD. IMC.RA :MAKE NEXT FREE ADDRESS THE START OF READ BUFFER. 
7570 074040 005037 072574 CLR IMC.Y sSTART TESTING AT FIRST LINE (Y=0) 
7571 074044 013737 072574 074352 5$: MOV IMC.Y,MPT.WY  :TELL WRITER WHERE TO WRITE 
7572 074052 005037 074330 CLR MPOF F [CLEAR THE PATTERN OFFSET 
7573 074056 013737 003240 074356 6$: MOV FREE ,MPT.WB :GET BASE OF WRITE BUFFER 
7574 074064 063737 074330 074356 ADD MPOFF ,MPT.WB . AND ADD THE OFFSET 


7579 074102 004737 027454 JSR 

7580 074106 013737 074332 072554 MOV MPCBAS, IMC.TA 2GET BASE OF COMPARE BUFFER 

7581 074114 063737 074330 072554 ADD MPOFF, IMC. TA -AND ADD THE OFFSET TO IT. 

7582 074122 004737 071736 JSR PC, IMCHK RE AD THE LINE AND COMPARE IT TO COMPARE BUFFER 
es +4 074126 ENDSEG b KKKKKKE KEKE KKK KEK KK KKK END SEGMENT. 


7585 074130 005737 003230 TST INTLAC z INTERLACED MODE? 
7586 074134 001014 BNE :IF YES, SKIP AHEAD. 
7587 074136 aaelan 000002 072574 BIT oe -IMC.¥ 


4 BNE 
7589 074146 062737 000002 072574 ADD #2,1MC.Y IF NONINTERLACED, NEXT LINE SHOULD READ TH 
7590 074154 004737 071736 JSR PC. IMCHK *CHECK FOR IT. . oP ee 
7591 074160 162737 000002 072574 SUB #2. 1MC.Y 

7592 074166 062737 000002 074330 7$: ADD #2. MPOFF :BUMP THE OFFSET 

F287 O74202 Oars Oe 000022 ee PLE OE AY Pal LOOP POR MORE Ge TS SWE Like 
7595 074204 062737 000002 072574 ADD #2,1MC.Y z1F DONE ALL, Bomb y \ 





1 
| 
| 
| 
| 

7575 

376 074072 BGNSEG 2 KKKKK KERR EKER KKK KKK KKK KKK BEGIN SEGMENT. 

7578 074074 012777 074334 106730 MOV ag Fag ; THEN WRITE DATA FROM THERE. 
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TEST 30 MAGE MEMORY PATTER SEQ 0199 
7596 074212 oer ot 072574 003250 CMP IMC.Y,YMAX ; DONE “i LINE? 
7597 074220 101711 BLOS 5$ NOT, GO FOR MORE 
7598 074222 005237 072552 8$: INC IMC.CH :BUMP THE CHANNEL NUMBER. 
7599 074226 023727 072552 000004 CMP IMC.CH, #4 ;DONE ALL CHANNELS? 
7600 074234 002634 BLT 3$ 31F NOT, DO THEM. 
re) 074236 ENDSUB 
7603 074240 004737 030072 JSR PC, TSTEMD 
7604 074244 EXIT TST : EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 
7605 074250 000000 PATS: 0 sPATRN 1 (00000000) 
7606 074252 000524 0524 sPATRN 2 (01010101) 
7607 074254 001250 1250 rete (10101010) 
7608 074256 001774 1774 N 4 (11111111) 
7 074260 177777 -1 ‘Caste TERMINATOR. 
7611 074262 116000 WRT.D: APNT!LO ;PIXEL DATA SET ON THE FLY. 
7612 074264 040000 WRT.X: I1!0 ;LIKEWISE ADDRESSES. 
7613 074266 000000 RT.Y: O 
7614 074270 164000 164000 164000 DNOP , DNOP , DNOP :IN CASE WE Ae TO CHANGE.. 
7615 074276 164000 164000 164000 DNOP , DNOP , DNOP -MODE FOR P-R-B DEBUG. 
roi¢ 074304 173000 STOPN ‘STOP AND TEST THIS PIXEL. 
7618 at pres tak h me 
7619 -MACRO T.D MDX 
rest <HOXB1 18>! POK®B1T4>! <MDX=18174B112>!<-HOX-1817> 
7622 
7623 0743 MPAT2: PAT.D 0 sPUT 4-BIT PATTERN INTO BITS <7:4> AND <11:8>, 
7624 074310 PAT.D 1 AND ITS COMPLEMENT INTO <15:12> AND <3:0> 
7625 074312 PAT.D 2 “USE FLOATING 1°S AND 0°S 
7626 074314 PAT.D 4 
7627 074316 PAT.D 10 
7628 074320 PAT.D 7 
7629 074322 PAT.D 13 
7630 074324 oS 15 
7631 074326 PAT 16 
7632 MPLEN=. PPR | ;USE ODD # OF WORDS TO MAXIMIZE CHANCES OF FINDING 


7633 
7634 
7635 074330 


DUAL-ADDRESSING PROBLEMS. 


000000 MPOFF: 0 :OFFSET FOR WRITING AND COMPARING 
rOs6 074332 000000 MPCBAS: 0 BASE ADDRESS OF COMPARE BUFFER 
7638 3 ae pe FOR WRITING THE PATTERN INTO THE LINE 
7639 074334 176000 176400 177000 MPT.ST: Perec CHO. PROTEC!CH1 ey goats f PROTEC! CH3 
7640 074344 MPT .WE: UAT !CHO ENABLE A CHANNEL FOR WRITING 
7641 074346 114000 000000 APNT,0 sSTART AT X=0 
7642 074352 000 MPT.WY: 0 
7643 074354 137000 BM18 USE BIT-MAP-1, WITH A COUNT OF 512. PIXELS 
7644 074356 000000 MPT.WB: 0 
074 173000 STOPN 
7647 TEFFEHEFEFEF FFF FFF F PFE FHF FEE FP FFE F EF Feo ete tee tes 
7648 074362 END. TEST 


JAAR EEEAEEEAEERE EERE EEEAEEEAEERAEARERRAEERREREEEEEEAEEREEEREEEEREKEEEEEEE 


- 
Fd END TEST 30 
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*** TEST 30 IMAGE MEMORY PATTERNS 


-* 
° 
FRA EEEEREREEREEEEEEERRERKEREREREEEERERREEREREREREE KKK 


SEQ 0200 
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wee TEST 31 
7650 


7651 074422 
7652 074426 

7653 074430 
7654 


7655 074434 
7656 074440 
7657 


7658 
7659 074444 


005737 002502 
001402 


004737 027702 


SEQ 0201 


MARRALAASASALLALAAASAAASAALAL EASES ESSE ESTAS EER SSSR ESR S EERE TRE REE SS 


te 
38 BEGIN TEST 31 = SPARE 
-* 


SEERA REECE KEEREEEEREEREEEEEEEE 


; CITERATION COUNT = 1.) 


TST DPUMOD ;DPU ONLY ?? 
BEQ SPARTS :NO, EXECUTE. 
EXIT TST : EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 


SPARTS: JSR PC, TSTGO 
EXIT TST : **eNOT YET CODED*** 


THFEFF Ft o ttt o to estete 
END.TEST 


SRE RREEREREREREEREERERREKREKEKERAEEEREEEKEEREREEEREEEEERE 
-* 


:* END TEST 31 
** 


ett e eee eee Se eet i SAAS LASSLALALELSASESESESASASSES ELE SEE SSE EEE ESE SG 
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SYSTEM VERIFICATION DISPLAY 


eee TEST 32 


7662 


7663 074532 
7664 074536 
7665 074540 
7666 
7667 
7668 
7669 
7670 
7671 074544 


7674 074560 
7675 


6 
7676 074564 
7677 074572 


8 
Apa 074576 


7 06 
7698 074712 


005737 
001402 


004737 
004737 
004737 
004737 
012777 
004737 
000446 
114000 


173000 


002502 


027702 


027054 


074600 
027454 


000540 
110302 


040 
000140 


001640 


106240 


000100 


111 
000140 


001540 


SEQ 0202 


SEERA ERAEEEEEERAEREARERERERAEEKEEREREREEEERERERAEEREERERE 


° 
. 
. 
8 
° 
& 
° 
° 


<ee Se Ge Be Oe 


® 
* 
* 


BEGIN TEST 32. = 


SEEKER AEAREAEEEAEEEEREEREREREKEERERAAAERAERREREEREEEAEREREAEEEEREEEEREEREEEEEEEE 


TST 
BEQ 
EXIT 


SYSTEM VERIFICATION DISPLAY 


; (ITERATION COUNT = 1.) 


DPUMOD ;DPU ONLY ?? 
VIS1 3NO, EXECUTE. 
TST : EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 


SMORGASBORD, ONE FRAME THAT HAS A BIT OF EVERYTHING. 
FIRST, A DEC LOGO (SORT OF), THEN VIOLATE THE EDGES 
AT LOWER LEFT AND UPPER RIGHT. 


IS1: 


1$: 


LOGO: 


PC,TSTGO 

PC, CLRRW ; CLEAR. 

PC ,DBLINK ; DISABLE BLINKING. 
PC,LUMIN : BLAST THE LUT. 
#LOGO,aDPC ; START WITH THE LOGO. 
PC,WAITF 

PC,PAUS.5 

VIS2 3.-AND CONTINUE. 


APNT, 540, 100 
SETCB,ACAT 
HAR!A 


CHAR! 
ASCIZ /DIGITAL/ 


APNT.140,140 sEXCEED EDGES AT LOWER LEFT... 
LXY 1,-200,0 

LXY 1.0,-200 

LXY 1.200,0 

LXY 1,0,200 

APNT 1640, 1540 y..-AND AT UPPER RIGHT. 

LXY 1,200,0 

LXY 1,0,300 

LXY 1.-200,0 

LXY 1,0,-300 
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eee TEST 32 


7700 

7701 

aa 

7703 074714 
04 

7706 7 

7707 074740 

7708 074746 

7710 074752 

7711 

7712 074754 


7722 075024 
7723 

7724 075026 
7725 075034 


7743 075106 


SYSTEM VERIFICATION DISPLAY 


173000 


130000 


173000 


074754 


0 
027454 


000500 


000220 
075046 
001460 


106110 
106076 
106064 


000002 


000620 
000620 


SEQ 0203 


NOW 1 LARGE AND 2 SMALL OCTAGONS. 


(182: 


LOCT: 


SOCT1: 
SOCT2: 


Pp 
MOV #socr aDPC 


PC ,WAITF 
MOV asocr? apPc 
JSR PC,WAITF 


JSR PC-PAUS.5 
BR vIS3 
APNT,500,2 
LVEC TALL 
LXY 1,576,0 
LXY 1.436.436 
LXY 1.0,576 
LXY 1.-436,436 
LXY 1.-576.0 
LXY 1.-436,-436 
LXY 1.0,-576 
LXY 1,436,-436 
STOPN 
APNT,220,620 

MP. .4+1 
APNT.1460,620 

VEC!ALL 
SXY 1.76.0 
SXY 1.56.56 
SXY 1.0,76 
SXY 1.-56,56 
SXY 1.-76.0 
SXY 1.-56,-56 
SXY 1,0,-76 
SXY 1,56,-56 
RPNT 
SXY u,20,50 
SXY 1.20.50 
SXY 1.20.0 
SXY 1.-260,20 
SXY 1.-20,-20 
SX 1,20,-20 


MOV #LOCT,aDPC 31 LARGE ONE... 
C,WAITF 


z-.AND 2 SMALL ONES. 


3«.eAND CONTINUE. 


: 1 LARGE OCTAGON... 


z..AND 2 SMALL ONES. 


375 REL POINTS IN CENTER. 
7 CENTER. 


VSV11/VS11_ == GRAPHIC 


see TEST 32 SYSTEM 
7745 
cs 
774 
7748 075110 012737 
7749 075116 012777 
7750 075124 BONS s 
7751 075126 Bo2¢f 
7752 075132 004737 
753 075136 042737 
7754 075144 062737 

55 075152 023727 

ae 075160 001362 
vee 0751 Ie 012737 


N 
$y 
oO 
N“N 
bet et 
—_—— 
ar 
o 
Oo 


7766 075232 001362 
7767 


7768 

7769 075234 000431 
7770 

7771 075236 114000 
7772 2 


7775 075256 174104 
7776 075260 127774 
7777 075264 173000 
7778 

7773 075272 150000 
7780 075276 114000 
7781 075304 174110 
7782 075306 127774 
7783 075312 173000 


SYS. DIA 
VERIFIC 


000100 


001240 
160000 


001240 
000140 


041240 
160000 


MACRO 
TION D 


001240 


075260 
001240 


075306 


11 


J 16 
13. 28-OCT-81 11:23 PAGE 105 
ISPLAY 


: NEXT, SHOW GRAPH/HISTO Y IN UPPER LEFT. 


VIS3: 


1$: 


2$: 


GRY: 


GY: 


HSY: 


HY: 


MOV #1240! GHI INH, GY+2 ex GRAPH Y STARTING AT 1240!GHIINH. 


MOV #GRY,aDPC :START GRAPH Y 

SKP2 

INC 

JSR PC,WAITF 

BIC #GHIINH,GY+2 

ADD #4 ,GY+2 :INCR Y AMPLITUDE... 
CMP Gyte, #1604 

BNE :LOOP UNTIL DONE. 


MOV oe eee eee HY+2 ;NOW, HISTO Y STARTING AT 1240!GHIINH. 


MHSY ,aDPC 


aDPC 
JSR PC,WAITF 
BIC AGHI INH ,HY+2 


ADD #10,HY+ ZINCR Y AMPLITUDE... 
CMP HY+2, #HST! 1550 
BNE 2$ ;..-AND LOOP TIL DONE. 


JSR PC,PAUS.5 
BR VIS4 3..eAND CONTINUE. 


APNT,100,1240 
LVEC:ALL DRAW BASE LINE. 


GXI!4 7X INCR = 4 FOR GRAPH. 
GHY!ALL ,0!1240 
STOPN,DJMP ,GY 


SETHB, 1240 
APNT 140,1240 


CHYIALL, HST!1240 
STOPN, DJMP HY 


HISTO BASE LINE. 
2X INCR = 


10 FOR HISTO. 


Se —35 


SEQ 0204 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
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eee TEST 32 SYSTEM VERIFICATION DISPLAY SEQ 0205 
7785 3 
| 1786 : NEXT, GRAPH/HISTO X IN LOWER RIGHT. 

7788 075320 012737 011340 075472 WISé: MOV #1340! GHIINH, GX+2 sPLOT GRAPH X STARTING AT 1340!GHIINH. 

7789 075326 012777 075446 105476 MOV #GRX, aDPC SSTART GRAPH 

7790 075334 SKP2 

7791 075336 005277 105470 1$: INC PC 

798 075342 004737 027454 JSR PC,WAITF 

7793 075346 042737 010000 075472 BIC #GHIINH,GX+2 

7794 075354 062737 000004 075472 ADD #4 ,GX+2 ZINCR X AMPLITUDE... 

7795 075362 023727 075472 001704 CMP GX+2,41704 | 

7796 075370 001362 BNE 1$ ;LOOP UNTIL DONE. | 

7798 075372 012737 051340 075520 MOV #HST!1340!GHIINH,HX*2 ;NOW, HISTO X STARTING AT 1340!GHIINH. 

7799 075400 012777 075502 105424 MOV #HSX, aDPC 

7800 075406 000402 SKP2 

7801 075410 005277 105416 2s: INC apPCc | 

7802 075414 004737 027454 JSR PC,WAITF 

7803 §73426 042737 010000 075520 BIC #GHI INH HX+2 

7804 075426 062737 000010 075520 ADD #10 ZINCR X AMPLITUDE... 

7805 075434 023727 075520 041650 CMP XW DS SANST!1650 

7808 : JSR PC,PAUS.5 

7809 075444 000431 BR vIs5 y...AND CONTINUE. 
| 

7811 075446 114000 001340 000100 GRX:  APNT, 1340, 100 

7812 075454 113774 LVEC!AL ;DRAW BASE LINE. 

7813 075456 LXY 1,0,340 

7814 075462 LXY 0.072340 

7815 075466 174104 GYI!4 :Y INCR = 4 FOR GRAPH. | 

7816 075470 123774 001340 GX: GHX!ALL,0!1340 | 

£817 075474 173000 160000 075470 STOPN, DJMP, GX 

7819 075502 150000 001340 HSX:  SETHB, 1340 zHISTO BASE LINE. 

7820 075506 114000 001340 000140 APNT 1340,140 

7821 075514 174110 GYI!10 :Y INCR = 10 FOR HISTO. 

7822 075516 123 

7823 075522 173000 160000 075516 STOPN, DJMP HX 


23774 041340 HX:  GHX'ALL,HST!1340 | 
| 
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TEST 32 


7832 
7833 075540 


7834 075546 
7835 075554 
7836 075562 
7837 

7838 075566 
7839 075574 
7840 075602 
7843 075606 
7844 075612 
784 

7846 075616 
7847 

7848 075624 
7849 075632 
7850 075640 
7851 

7852 075644 
7853 075652 
i te 075660 


85 

7856 075664 
7857 075664 
7858 


7859 075666 


Sees 
ete 
Sees 
NNN ON 
MVVMIiwmnw Ww 
NNN ON 

Nm 

Nm 


7870 078736 
7871 075740 
7872 075744 


SYSTEM VERIFICATION DISPLAY 


; NEXT SHOW BIT MAP MODE 1 AT BOTTOM CENTER, 


012700 177777 a 
004737 027020 


777 
004737 027454 


012737 137400 075706 
012777 075700 105230 
004737 027454 


012700 000377 
004737 027014 


013737 003240 075736 


012737 134010 075734 
012777 075714 105172 
004737 027454 


012737 135010 075734 
012777 075726 105152 
004737 027454 


1$: 

000430 
114000 000400 000240 8614: 
160000 075706 

14000 000300 000340 618: 
136340 

0000 B148: 
173000 
114000 000540 001340 B04: 
160000 075734 
114000 001040 001340 608: 
134001 
000000 B048 
164000 164000 
173000 


AND BIT MAP MODE 0 AT TOP CENTER. 


MOV #-1 RO 
JSR PC,FILL2 3 ++ AND FILL BUFFER WITH... 


3+.eALTERNATE WORDS 


MOV B148 : SET BUFFER ADDRESS. 

MOV panies sed, B148-2'; SET OPCODE = BM14 X 340 
MOV #814, aDPC :kCT BM14, DRAWS A DASHED... 
JSR PC,WAITF 3+ +LINE (4 mi ‘ OFF)... 


3-..FOR 34 
MOV tt fhe og B148-2° ;SET OPCODE = BM18 X 400 
MOV #818 ,aDPC ; KCT BM18, DRAWS A DASHED... 
JSR PC ,WAITF bee LINE (2 ON, 2 OFF)... 
3...FOR 400 PIXELS. 


MOV #377 ,R0 
JSR PC,FILL1 


MOV FREE B0G8 ; SET BUFFER ADDRESS. 
MOV #BM04'M64,B048-2'; 4 BIT X E. 

MOV MOG R33 8X2 -BO6E-2 4 BIT xX 62 SQUARE. 
MOV #804, aDP 0 iT. 


JSR PC.WALTF. 
#BM08 'M64 ,B048-2 BIT X 64 SQUARE. 

MOV #OM08 1M32'EX2, Bosd-2 58 BIT x 768. SQUARE. 
#808, aDPC ey AE HAT T 


JSR PC,WAITF 


2 JSR PC,PAUS.5 
BR VISSA z-2AND CONTINUE. 


se ly a : 4 ON 4 OFF FOR 340 PIXELS. 
ey 300,340 ; 2 ON 2 OFF FOR 400 PIXELS. 
_— 1340° 

STOPN 


APNT, 540, 1340 
JMP, .+1 

APNT, 1040, 1340 

BM04 'M64 


0 
DNOP, DNOP 
STOPN 


SET PIXEL DATA PATTERN... 


SEQ 0206 
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TEST 32 

7874 

7875 

7876 

7877 

7878 

7879 

7880 075746 

7881 075754 

7882 075762 
3 075764 


7885 075776 
7886 076004 
7888 076012 
7889 076014 
7890 076014 
7892 

7893 076016 
7894 0760. 


7899 076056 


066 
7901 076070 
7902 076072 


SYSTEM VERIFICATION DISPLAY SEQ 0207 

NEXT SHOW RUN-LENGTH MODE DIAGONAL BARS BETWEEN THE BMT AND BMO LINES. 

: USES 16 INTENSITY LEVELS. FROM O TO MAX. | THE 0 LEVEL RUN-LENGTH IS VARIED 

3; FROM 4 TO 24(8) 20 LINES OF DATA, WAILE” THE OTHER RUN stds REMAIN 

; CONSTANT AT 14, THE LINES ARE DRAWN’ FROM TOP TO BOTTOM ¢ YDOWN=1) | 
112737 000004 076027 W1sSa: MOVE _ #4, VRLF2+1 {SET INITIAL COUNT FOR O-INTENS AT 4 | 
012777 076016 105050 MOV = #VRLF , DPC START THE FILE | 
000403 BR 2$ ;SKIP OVER THE RESUME 
012777 000001 105060 1$: MOV #1, aDPC : RESUME THE DISPLAY | 
004737 027454 2$: JSR PC WAITF FOR DONE | 
123727 076027 000024 cNpa = VRLF2#1,#24 © DONE 20(8) LINES? | 
103003 BHIS 38 FINISH IF YES. | 
105237 076027 INCB ss VRLF241 : BUMP INITIAL COUNT IF NO 
000764 BR j.+.THEN XCT AGAIN. | 

3$:  ;JSR PC, PAUS.5 ;PAUSE 
000430 8R VIS6 i... THEN CONTINUE. 

{DISPLAY FILE FOR VISUAL RUN-LENGTH MODE 
114000 000300 000320 WRLF: APNT,300,320 START BETWEEN BM1 & BMO 
144040 VRLF 1: RNLN! YDOWN :ENTER eat: ore GO DOWN THE SCREEN 

000 004 VRLF2: .BYTE 0,4 —— ;0 INTENSITY, START AT LENGTH | 

006020 006040 006060 “WORD —6020,6040.6060 cINCREASING INTENSITY. LENGTH=14 | 
006100 006120 006140 D 6100.6120.6140.6160  ;....AND MORE | 
006200 006220 006240 -WORD  6200,6220.6240,6260 = ;....AND MORE | 
006300 006320 006340 WORD  6300,6320,6340,6360 3... 
173000 STOPN ; STOP 
000000 WORD 0) COUNT = 0 FOR NEWLINE 
160000 076026 DJMP , VRLF 2 THEN JUMP BACK FOR MORE | 
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eee T 32 SYSTEM VERIFICATION DISPLAY SEQ 0208 


7904 3 
7905 + FINALLY, AT DEAD-CENTER 
7906 + A CIRCULAR SWEEP OM 12 O'CLOCK THRU 360 DEGREES. 
7907 : INCREMENT IATENSITNSCOLOR LEVEL SUCH THAT ALL LEVELS 
7908 + ARE DISPLAYED IN 360 DEG 
7909 ; 5 VECTORS | PER LE LE EVEL * 236 LEVELS = 768 VECTORS TOTAL. 
7911 + ACTUAL foc ORY INTENSITY SPECTRUM DEPENDS UPON HOW MANY 
7912 : PIXEL BITS ARE AVAILABLE, AND HOW THE LOOK-UP-RAM 
7913 : PR OGRAMMED (GREY-SCALE BY DEFAULT, IF UNSTALLED) 
7914 : S <9:8> = 4 LEVELS. 
7915 : 4 Bt ts <9:6> = ie LEVELS (4 PER QUADRANT) . 
7916 ; 6 BITS <9:4> = 64 LEVELS (LUT REQ'D). 
eat ; 8 BITS <9:2> = 256 LEVELS tur REQ'D). 
7919 076076 012737 112000 076536 VIS6: MOV #LVEC!LO,RBL = ; INIT DISPLAY FILE. 
7920 076104 012737 040000 076540 MOV #1!0,RBX 
7921 076112 012737 000300 076542 MOV #300.RBY 
2 076120 012701 000003 MOV #3,Ri ; Sel FOR 3 VECTORS PER LEVEL... 
7923 076124 012703 000004 MOV #4.R3 -AND INCR LEVEL BY ‘L1" 
0761 919102 1$: MOV R1.R2 : SCRATCH COPY LEVEL COUNTER. 
7925 076132 012777 076530 104672 MOV #RBO, aDPC “START, QUAD 1. 
6 076140 004737 027454 JSR PC ,WAITF 
7 076144 023727 076542 000000 28: CMP RBY #0 ;DELTA Y MIN 2? 
28 076152 001403 BEQ 3$ [DONE QUAD 1 IF SO. 
076154 004737 076366 JSR PC,Q1 
076160 000771 BR 2$ 
7931 076162 052737 020000 076542 3S: BIS #MXY ,RBY QUAD 2. DX POS, DY NEG. 
7932 076170 023727 076540 040000 4$: CMP RBX,#1!0 [DELTA X MIN ? 
7933 076176 001403 BEQ 5$ [DONE QUAD 2 if sO. 
076200 004737 076424 JSR PC,02 
7935 076204 000771 BR 4$ 
076206 052737 020000 076540 5$: BIS #MXY , RBX QUAD 3, DX NEG, DY NEG. 
7937 076214 023727 076542 020000 6$: CMP RBY ,AMXY ! 0 ‘DELTA Y -MIN 
076222 001403 BEQ 7$ [DONE QUAD 3 IF * $0. 
7939 076224 004737 076366 JSR PC,03 
7940 076230 000771 BR 6$ 
7941 076232 042737 020000 076542 7$: BIC #MXY ,RBY ;QUAD 4, DX NEG, DY POS. 
7942 076240 023727 076540 060000 8$: CMP RBX,AI'MXY!0 DELTA X =MIN 
7943 076246 001403 BEQ 9$ [DONE QUAD 4 IF * 50. 
794% 076250 004737 076424 JSR PC,04 
7945 076254 000771 BR aS 
7947 076256 012737 004000 003220 9$: MOV #4000 SHADLY ; FINALLY, SET SHADING DELAY... 
7948 076264 012705 110224 MOV scbs2, ies VAND CYCLE THRU 16 SHADES. 
7949 076270 012501 10$: MOV {RS) +, "OF EACH BASIC (NTSC) COLOR. 
7950 076272 001403 BEQ ii : BR WHEN ALL DONE. 
7951 076274 004737 027172 JSR PC, SHAD16 
958 076300 000773 BR 10$ 
7954 076302 004737 104762 11$: JSR PC,OUTLIN : OUTLINE THE SCREEN. 
7955 076306 904737 027514 JSR PC -PAUSE1 
7956 076312 004737 027514 JSR PC .PAUSE1 
7957 076316 004737 027514 JSR PC PAUSE1 : PAUSE 3 SECONDS... 
7958 076322 004737 105330 JSR PC; EBLINK + ENABLE BLINKING. 
7959 076326 004737 027514 JSR PC ’PAUSE1 ; 
7960 076332 027514 JSR PC “PAUSE + PAUSE 3 SECONS... 








ret 


7961 076336 
7962 076342 
7963 


7966 076362 


SYSTEM V 
004737 


004737 


8.1 
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TION DISP 


J 
VISXIT: 
E 


PC ,PAUSE1 


PC; TSTEND 
TST 


; DISABLE BLINKING. 


; EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 


SEQ 0209 


ecancadbinebabinaaal 


* 
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7968 076366 013705 076540 Q1:03: MOV RBX,R5 ZQUAD 1 AND 3, INCR OX ‘TIL... 
7969 076372 042705 176000 BIC #°C1777,R5 +. eMAX, THEN DECR DY. 
7970 076376 020527 000300 CMP R5,4300 ‘DELTA K MAX ? 
7971 076402 001404 BEQ 1$ 
7972 076406 062737 000002 076540 ADD #2,RBX :NO, INCR DELTA X. 
7973 076412 000403 SKP3 
7974 076414 162737 000002 076542 1$: SUB #2,RBY :YES, DECR DELTA 
1973 076422 000416 BR QxiT SCHECK FOR LEVEL CHANGE AND EXIT 
7977 076424 013705 076542 Q2:04: MOV RBY,RS :QUAD 2 AND 4, INCR DY ‘TIL.. 
7978 076430 042705 176000 BIC #*C1777,R5 . «MAX, THEN DECR DX. 
7979 076434 020527 000300 CMP R5,4300 “DEL TA Y MAX ?? 
7980 076440 001404 BEQ 1 
7981 076442 062737 000002 076542 ADD #2,RBY :NO, INCR DELTA Y. 
7982 076450 000403 SKP3 
7983 076452 162737 000002 076540 1$: SUB #2,RBX ZYES, DECR DELTA X. 
7985 076460 012700 000600 QXIT: MOV #600,RO ; DELAY APPROX 3 MSEC... 
7986 076464 005300 1$: DEC RO . BETWEEN VECTORS. 
7987 076466 001376 BNE 1$ 

6470 005302 DEC R2 : LEVEL CHANGE REQ'D ?? 
7989 076472 001011 BNE 2$ ‘NOT YET. 
7990 076474 010102 MOV R1,R2 :YES: RESET COUNTER.. 
7991 076476 060337 076536 ADD R3,RBL . . INCREMENT. 
7992 076502 042737 176000 076536 BIC RttPo7 RBL 3+ AND STRIP LEVEL.. 
7993 076510 052737 112000 076536 BIS ALVEC'LO,RBL Sas ;REPLACE OPCODE. 
7994 076516 005277 104310 2$: INC aDPC ; ESUME.. 
7995 076522 004737 027454 JSR PC ,WAITF poe eWA if... 
7996 076526 000207 RTS PC * SAND EXIT. 
7998 : DISPLAY FILE FOR CIRCULAR RAINBOW. 
8000 076530 114000 000776 000736 RBO:  §APNT,HAFX,HAFY60 :SET ORIGIN AT CENTER. 
8001 076536 112000 RBL: LVEC!LO TLEVEL WILL INCREMENT. 
8002 076540 040002 RBX:  I!2 :DITTO X... 
8003 076542 000300 RBY: 300 t..AND Y 
8004 076544 164000 173000 164000 DNOP,, STOPN, DNOP 
8005 076552 160000 076530 DJMP,RBO 
8007 076556 END. TEST 


SRE EERE EKEREEREEEEEREREREREERE 


- END TEST 32 


PASE SALASASALELLALLALALEALASALLLASAS ALES SESE ESET ER SERRE ESE RS ERECT CCS 


7 
° 
° 
. 
° 
. 
° 
e 





D1 
VSV11/VS11_== GRAPHIC SYS. DIAG MACRO M1113 28-OCT-81 11:23 PAGE 111 


eee TEST 33 JOY=STICK VERIFICATION (STAND-ALONE) SEQ 0211 
8009 
3 MASBSBAALAALSZAA£ALL£ZALLALALALLALAL ELAS LEELA RSE RSE ERR ERE ER TTT ST PTT CP Ce SS 
;* 
:* BEGIN TEST 33 = JOY=STICK VERIFICATION (STAND-ALONE) 
d eqacenaenneeenensnnnneqeceenenenqnarenceqneqnceneceqecqeneqenenseqeees 
; CITERATION COUNT = 1.) 
8010 076656 005737 030070 TST TESTK 
8011 076662 001402 BEQ JSV ; BR IF CLEAR TO RUN. 
Bos 076664 EXIT TST 3: EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 
8014 ; THIS TEST WILL RUN ONLY IF IT IS SPECIFIED BY ITSELF, AND IF MANUAL 
8015 : INTERVENTION IS ALLOWED (UAM=0), AND, OBVIOUSLY, ONLY IF A JOY=STICK 
sors ; IS AVAILABLE. 
StS ; ONCE STARTED, THERE IS NO EXIT, SAVE <*C>. 
4 076670 004737 027702 JSV: JSR PC,TSTGO ; TITLE. 
8022 076674 MANUAL 
8023 076676 BCOMPLETE JSVA1 
8024 076700 PRINTF #NOMAN 
8025 076720 EXIT TST : EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 
8026 076724 JSVA1: PRINTF #SCOUT 
8027 076744 004737 030414 JSVA: JSR PC, as : FIND THE CHANNELS 
8028 076750 005037 077302 CLR SELCHA SET seus cree CHANNEL TO 0 (DEFAULT). 
8029 076754 GMANID MCHAN,SELCHA,O, 1400" 0.3.Y 
8030 076774 012737 146072 100320 MOV #CUON! CUIOFF JC 
8031 077002 053737 077302 100320 BIS SELCHA,J 
8032 077010 012737 146016 100740 MOV CUIM,J 
33 077016 053737 077302 100740 BIS SELCHA, JCXB 
8034 077024 012737 60 101110 MOV #CUIS,JCXC 
8035 077032 053737 077302 101110 BIS SELCHA, JCXC 
012737 146100 101114 MOV #CURD, 
8037 077046 053737 077302 101114 BIS SELCHA, JCXD 
8038 077054 013737 077302 100306 MOV SELCHA, JSPIXA 
8039 077062 006237 100306 ASR JSPIXA 
7066 006237 100306 ASR JSPIXA 
8041 077072 052737 175 100306 BIS #CUWT ,JSPIXA 
100 072737 146100 077152 MOV #CURD,10$ 
8043 077106 053737 077302 077152 als SELCHA, 10$ 
8044 077114 013701 003026 MOV UNITN,R1 
8045 077120 013700 077302 MOV SELCHA,RO 3; GET CHANNEL NO. (BITS 9-8) 
8046 077124 000300 SWAB RO 
8047 077126 006300 ASL RO : MAKE WORD OFFSET 
8048 077130 005760 003270 TST SYCTAB(RO) : IS THERE A JOYSTICK HERE? 
8049 077134 100431 BMI 3$ 
8050 077136 000414 BR 2s 
8051 : TSTB STIK(R1) sSTICK AVAILABLE ate UNIT ?? 
805 ; BGT JSTST GET ON WITH IT 
805 » eoennannseoncncoenoasqobesatossnqacoosecssonnceceeeeees 
8054 gee 2s 3NO, CAN'T RUN, 
8055 : 540, 240 
805 RARER EEEEEAERERAAAREAARAEAEAEEREEEEAEEEAEEEEREEEE 


6 
8057 077140 012777 077150 103664 Mov #1$,aDPC :DON'T KNOW, LET'S FIND OUT. 





xkt 


8058 077146 
8059 077150 
8060 077152 
8061 077156 
ste) 077162 


06 

8064 

8065 
8066 

8067 077164 
8068 077170 
8069 077172 
8070 077214 
8071 


8072 077220 
8073 077220 


8075 077222 
8076 


8080 
8081 077270 
8082 
8083 077302 


JOY-STICK VERIFICATION (STAND=ALONE) 


000403 


103416 


004737 
006200 


000137 


000431 
045 


103 
000000 


026756 


076744 


101 


110 


040 


101 


1$: 
10$: 


2$: 


3$: 


NOSTIK: 


*, 
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SKP3 
DNOP TRY TO READ CURSOR POSITION. 
CURD, STOPN 
JSR PC,WAITF 
Bes 38° ;BR IF DPU RESPONDS TO STICK. 
DEAE ISIS ISIII III IIIT IIE 
5 ERB, gSTIK(RT) OTHERWISE, SET FLAG = NO STICK. 
DIAERSIS III III ISIS III III I TT OT IE 
sk PC,RELEAS sRELEASE ''HUNG'’ DPU... 
PRINTF #NOSTIK,RO ee. TEL L_THE MAN.. 
JMP JSVA ; KEEP TRYING (FOREVER) !! 
: MOVB #1,STIK(R1) SET FLAG = STICK AVAILABLE... 
BR JSTST ze.eAND START "EM UP. 


ety /%A == NON-EXISTENT SYNC CHANNEL : 


201/ 


> CHANNEL SELECTION QUESTION AND ANSWER. 
-ASCIZ /CHANNEL / 
SELCHA: 0 


MCHAN: 


; USER SELECTED CHANNEL (DEFAULT=0). 


SEQ 0212 





1 
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eee TEST 33° JOV=STICK VERIFICATION (STANDALONE) SEQ 0213 
8085 ; 
8086 ; TURN ON JHE CURSOR AND DISPLAY IT*S CO-ORDINATES ON SCREEN. 
8087 i ON (STOP INTERRUPT. UPDATE READ-OUT IF STICK I$ MOVING,, 
8088 > ON ‘SWITCH’ INTERRUPT, MARK THE COORD WITH ALITTLE "xX". 
8089 ; ON "MATCH'’ INTERRUPT, MARK THE SPOT AS BEFORE, AND SAY ‘MATCH 
8091 077304 004737 027054 JSTST: JSR PC, LUMIN ; BLAST THE LUT 
8092 077310 004737 026650 JSR PC, CLRRW ZINIT IN READ/WRITE MODE. 
8093 077314 012700 177777 Mov = #=1,,RO 
8094 077320 004737 027014 JSR PC, FILL ; FILL PIXEL BUFFER. 
8095 077324 013737 003240 101062 MOV —- FREE BMX > SET BUFFER POINTER. 
8096 077332 012777 077406 103512 MOV =: #2$, @STPV SET STOP... 
8097 077340 012777 077442 103506 MOV = -#4$, J SMV 3+. MATCH. 
8098 077346 012777 077512 103504 MOV =: #5$,aJSSV .AND SWITCH VECTORS. 
8099 077354 005037 003170 CLR — SDXR CLEAR OLD JSX,JSY CO-ORDS. 
8100 077360 005037 003172 CLR SYR 
8101 077364 DPSTART #JSPIXA 
77 012777 100306 103440 MOV #JSPIXA,aDPC ; START THE DPU. 

077372 004737 027454 JSR PC ,WAITF ; WAIT FOR DISPLAY STOP. 
8102 077376 012777 100316 103426 1$: MOV #iSPIX, @DPC  —s- : START_THE DISPLAY.. 
8103 077404 000777 BR z..AND WAIT FOR INTERRUPT. 
8105 077406 2$: BREAK ON ‘'STOP'', BREAK.. 
8106 077410 004737 077752 JSR PC, GTCURS soe! MASK’ THE CURSOR DATA 
8107 077414 023737 100004 003170 CMP = MKDXR, SDXR -AND CHECK STICK MOTION. 
8108 077422 001103 BNE 6$ : BR IF STICK IS MOVING. 
8109 077424 023737 100006 003172 CMP“ MKDYR, SDYR 
8110 077432 001077 BNE 6$ DITTO 
8111 077434 005277 103372 INC — @DPC : OTHERWISE, JUST RESUME... 
8112 077440 000002 RTI ;...AND DISMISS. 
8114 077442 052737 001777 100470 4$: BIS = #1777,MATCH —s;:_ ‘MATCH == ENABLE TEXT 
8115 077450 017737 103362 003170 MOV — @DXR, SDXR :SEE THAT NO SIGN BIT SET ON MATCH 
8116 077456 100404 BMI «4 1$ IF SET, REPORT ERROR 
8117 077460 017737 103354 003172 MOV  @DYR, SDYR SAND ALSO FOR DYR 
8118 077466 100010 BPL 4 2$ iSKIP IF OK 
8119 077470 41$:  HRDERR DXYME, JXYPE T THE ERROR 
8120 077510 000433 42$: BR 260 procéss” THE INTERRUPT 
8121 077512 042737 001777 100470 5$: BIC  (W1777,MATCH =; _‘“SWITCH’ == DISABLE TEXT. 
8122 077520 004737 023524 51$: JSR  —- PC, ERRCHK CHECK FOR ERROR CODE IN CSR 
8123 077524 017737 103306 003170 MOV = @DXR, SDXR GET X~COORDINATE & TEST SIGN 
8124 077532 100004 BPI. 3...ERROR IF NOT SET. 
8125 077534 017737 103300 003172 MOV  @DYR, SDYR GET Y-COORDINATE & TEST SIGN 
8126 077542 100410 BMI =—«53$ 3...0K IF SET. 
8127 077544 52S: HRDERR JSDXYE JXYPE REPORT THE ERROR. 
8128 077564 042737 174000 003170 53$: BIC 4#174000,S CLEAR SIGN & STATUS ON SAVED Xx 
8109 077372 O4er3? 174000 003172 © BIC #176000-8DYR CLEAR SIGN € STATUS ON SAVED ¥ 
8131 077600 013737 100442 160360 MOV MARK, ON EITHER. 
8132 077606 013737 100444 100362 MOV ARKS2-EMK+2 $c NERASE OLD MARKER. . 
8133 077614 013737 003170 100442 MOV —- SDXR, MARK 
8134 077622 013737 003172 100444 MOV SDYR-MARK#2 .AND SET A NEW ONE. 
8135 077630 000411 BR 62$ :G070 COMMON HANDLER. 
8137 077632 042737 001777 100470 6$: BIC  —-#1777,MATCH —s; STICK MOVING, DISABLE TEXT. 
8138 077640 013737 100006 003170 MOV —- MKDXR, SDXR 
8139 077646 013737 100006 003172 MOV ——- MKDYR SDYR ;SAVE OBSERVED CO-ORDS. 





7” 
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8140 077654 


8163 

8164 100010 
8165 100064 
8166 100140 
8167 100216 
8168 

8169 : 54 

1003 





et est OO 1 OO =| OOO oS SS 


ERROR MESSAGES 
WTE IZ 


JSX,EX 
aenrggeere 
JSY+2,EY+2 
SDXR,R1 
PC,CNVRT 
R1,JSX 
R2,JSX+2 
SDYR, R1 
PC, CNVRT 
R1,JSY 
R2,JSY+2 
#1$, (SP) 


oe nd td 


aDYR.MKDYR 
ar ye O00. MKDXR 
#174000, *"MKDYR 


sERASE OLD X/Y. 
CONVERT X TO ASCII... 
3..UPDATE READ-OUT. 
CONVERT Y TO ASCII... 
3...UPDATE READ-OUT. 


: SET PC TO RESTART... 
3.+eAND DISMISS. 


a. JOYSTICK OPERATIONS: 


WAITED TOO LONG FOR J.S. STATUS RETRIEVAL/ 
Saatcn INTERRUPT / 


#JXYPX ,ADXR,ADYR 


Ss J.S. 
: %06%A DYR: %06%AXN/ 
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eee TEST 33 JOY=STICK VERIFICATION (STAND-ALONE) SEQ 0215 

8174 ; 

8175 : DISPLAY CODE. 

8177 100306 175000 000100 000100 JsPIxXA: CUWT,100,100 

8178 100314 173000 STOPN 

8180 100316 164000 JSPIX: DNOP ;CURSOR ON, INT'S OFF. 

8181 100320 146072 JCXA: | CUON!CUIOFF 

8182 100322 152000 110302 SETCB,ACAT ZASCII BASE ADDRESS. 

8183 100326 114000 001620 001600 APNT, 1620, 1600 

8184 100334 102000 CHAR!L sERASE OLD X ... 

8185 100336 060 060 060 EX: ASCII /9000/ 

8186 100342 114000 001620 001540 APNT, 1620, 1540 

8187 100350 100000 CHAR y...AND Y NUMERICS... 

8188 100352 060 060 060 EY: “ASCII /0000/ 

8189 100356 114000 APNT 

8190 100360 000000 000000 EMK: 0,0 

8191 100364 104000 SVEC y...AND OLD MARKER. 

8192 100366 SXY 1,-10,-10 

8193 100370 SXY U,20,0 

8194 100372 SXY 1,-20,20 

8195 100374 SXY u;20,0 

8196 100376 SXY 1.-10,-10 

8198 100400 114000 001460 001600 APNT, 1460, 1600 

81 100406 103774 CHAR! ALL :DISPLAY NEW X... 
200 100410 112 123 130 -ASCII. /JSX / 

8201 100414 060 060 060 USX:  <ASCII /0000/ 

8202 100420 115000 001460 001540 APNT, 1460, 1540 

8203 100426 100000 CHAR :..AND Y... 

8204 100430 112 123 131 “ASCII. /JSY / 

8205 100434 060 060 060 uvSY:  <ASCII /0000/ 

8206 100440 114000 APNT 

8207 100442 000000 000000 MARK: 0,0 :..-AND NEW MARKER. 

8208 100446 104000 SVEC 

8209 100450 SXY 1,-10,-10 

8210 100452 SXY u;20,0 

8211 100454 SXY 1.-26,20 

8212 100456 SXY u;20,0 

8213 100460 SXY 1.-16,-10 

8215 100462 114000 001540 001500 APNT, 1540, 1500 

8216 100470 102000 MATCH: CHAR!LO : “CHAR!ALL'' IF MATCH INTERRUPT 

8217 100472 040 115 101 -ASCi] / MATCH/ 

8219 100500 114000 000010 000716 APNT,10,HAF Y60-20 ;NOW LABEL THE BOX VECTORS. 
8220 100506 103774 HAR‘ ALL 

8221 100510 060 060 060 ASCII /0000/ 

8222 100514 114000 000260 000716 APNT 260, HAF ¥60-20 

8223 100522 103774 CHAR!ALL 

8224 100524 060 062 065 ASCII /0250/ 

8225 100530 114000 000530 000716 APNT ,530,HAF Y60-20 

8226 100536 103774 TALL 

8227 100540 060 065 062 ASCII _/0520/ 

8228 100544 114000 001116 000716 APNT, 1256-140,HAF Y60-20 

8229 100552 103774 CHAR! ALL 

8230 100554 061 062 065 “ASCII /1256/ 





VSV1 
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00566 
0 


lolelele| oe] =) 

S8SS3388sS3s 

MM——OOnN™~N 
Sonokns 


So 
o 
o 
5 
So 


-—OoOoo So oOooo00o0o 
SILISSERERIGAIASSSNAO 
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114000 001366 000716 APNT, 1526=140,HAFY60-20 
103774 CHAR! 

061 065 062 “ASCII _/1526/ 
114000 001636 000716 APNT , 1776=140, HAF Y60=20 
103774 CHAR! ALL 

061 067 067 -ASCII  /1776/ 
114000 000716 000010 APNT ,HAFX=60, 10 
103774 HAR!ALL 

060 060 060 ASCII /0000/ 
114000 000716 000250 APNT ,HAFX=60, 250 
103774 CHARIA 

060 062 064 ASCII /0240/ 
114000 000716 000510 APNT ,HAFX=60,510 
103774 HAR‘ ALL 

060 065 060 -ASCII  /0500/ 
114000 000716 001136 APNT ,HAFX~60, 1176-40 
103774 CHAR! ALL 

061 061 067 -ASCII /1176/ 
114000 000716 001376 APNT , HAF X60, 1436-40 
103774 HAR! AL 

061 064 063 ASCII /1436/ 
114000 000716 001636 APNT ,HAFX=60, 1676-40 
103774 HAR! 

061 066 067 ASCII /1676/ 
114000 001706 000010 APNT, 1776-70, 10 
103774 CHAR ‘ALL 

107 120 -ASCII /GP/ 

164000 164000 164000 BOXES: DNOP,DNOP,DNOP 
146016 JCXB:  CUIM 
114000 000000 000000 APNT,0,0 
113774 LVEC!ALL 
LXY 1,1776,0 
LXY 1.0,1676 
LXY 1.-1776,0 
LXY 1.0,-1676 
114000 000250 000240 APNT, 250,240 
110000 LVEC 
LXY 1,1256,0 
LXY 1,0,1176 
LXY 1.-1256,0 
LXY 1.0,-1176 
114000 000520 000500 APNT, 520,500 
110000 LVEC 
LXY 1,536,0 
LXY 1.0,476 
LXY 1.-536,0 
LXY 1°0,-476 
114000 000676 000636 APNT ,HAFX-64. ,HAFYS0-64. 
134001 BM04 1M64 
000000 BMXX 
114000 000756 000736 APNT , HAF X=20, HAF Y60 
106000 SVECILO 
SXY 1,40,0 
SXY u;-26 Z0 
SXY 1,0,-4 





SEQ 0216 


:FINALLY... 
zeeeMY INITIALS. 


y*** FOR DEBUG *** 
3; MATCH ON, SWITCH OFF. 


;AND DRAW NESTED BOXES. 


; A_64 SQUARE BIT MAP AT CENTER. 


: POINTS TO FREE CORE BUFFER. 


3 CROSS AT CENTER (BLK ON WHITE) 
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113 
xx TEST 33 JOY=-STICK VERIFICATION (STAND= 


8288 

8289 101102 164000 164000 164000 DNOP , DNOP , DNOP 3*** FOR DEBUG * 

8290 101110 146013 164003 JCXC:  CUIS,SYNC+2 :SWITCH ON, MAT cH “OFF 

8291 101114 146100 173400 JCXD: CURD,STOPI READ JSX/JSY, STOP, INTERRUPT. 
8292 101120 164000 164000 164000 DNOP , DNOP , DNOP zee FOR DEBUG * 

ESoz 101126 160000 100732 DJMP ,BOXES ;LOOP 

8295 101132 END. TEST 


DIBA AOSIIOI II ISIS IIOIIUIISISIIISIOIIOIOIOIOI UIST TITEL EE EE 
** 

a 

hd END TEST 33 

** 

° 

. 


PAPAS ESASARASEEAAAESAARSLALALESALAL SELES AE SERA E EE SSE RSS ESSE TT ST PPP SS 


SEQ 0217 
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1 
YS. MACRO M1113 "} Sapdlinds 11:23 PAGE 114 
eee TEST 34 SELECTED DI S (S 


DIAG 
SPLAY 


TAND=ALONE ) SEQ 0218 
8297 
§ 'MARDBAASLASAALASLALALSZAALAALALLALALALAESCSLAELALLESEL AS ES ES EEE LE SESE EES RRR 
;* 
ze BEGIN TEST 34 = SELECTED DISPLAYS (STAND-ALONE) 
** 
ITITITTIIIIII TTI TITITITITTTTI Titi TitititititiiLiLiLitLL TLL LLL LLL Teil 
: (ITERATION COUNT = 1.) 
8298 101224 005737 030070 TST TESTK 
8299 101230 001420 BEQ SELDIS : BR IF OK TO RUN. 
Bent 101232 EXIT TST : EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 
8302 : THIS TEST CONSISTS OF A SELECTION OF DISPLAYS INDIVIDUALLY 
8305 : SELECTABLE BY THE USER AS FOLLOWS: 
8305 t DISPLAY DISPATCH TABLE. 
8307 101236 000000 DTAB: 0 : 0 = “TYPE THIS" 
8308 101240 102262 TBON =; 1 = TURN BLINKING ON 
8309 101242 102320 TBOFF ; 2 = TURN BLINKING OFF | 
8310 101244 102356 BARS  ; 3 = COLOR BARS | 
8311 101246 102556 DOTS :427X/7D0 
8312 101250 102702 HATCH : 5 = 7 X 7 CROSS=HATCH 
8313 101252 103066 PERIM ; 6 = PERIMETER OUTLINE | 
8314 101254 103106 COLID : 7 = BASIC COLOR ID 
8315 101256 103360 GUNID ; 8 = GUNS ID 
8316 101260 104526 SCRWHT ; 9 = ALL WHITE SCREEN 
8317 101262 104620 BLO 310 = "BLOOM’' TEST (ALT. WHITE SCREEN & PERIMETER OUTLINE) 
8318 101264 104534 SCRRED :11 = ALL RED SCREEN 
8319 101266 104542 SCRBLU :12 = ALL BLUE SCREEN 
8320 101270 104550 SCRGRN :13 = ALL GREEN SCREEN 
8321 101272 DTABE: 
8322 000015 DTHIL=<DTABE~DTAB>/2~1 
8324 IT WILL RUN ONLY IF IT IS SPECIFIED BY ITSELF, AND IF MANUAL 
8329 ; INTERVENTION IS ALLOWED (UAM=0). 
a3¢7 ONCE STARTED, THERE IS NO EXIT, SAVE <*C>. 
8329 
oa34 ; CHANGE MODES VIA KEYBOARD: 
8352 SELECT DISPLAY (D) N<CR> 
8354 WHERE N = DISPLAY NUMBER (SEE ABOVE). 
8336 101272 SELDIS: COMBEG 
101272 004737 027702 JSR PC, TSTGO : TITLE. 
101276 004737 026074 JSR PC, DPRE SET + DO SOFT INIT. 
8337 101302 004737 027054 JSR PC; : BLAST LUT. 
8338 101306 004737 102320 JSR PC. TBOFF : START OUT WITH BLINKING TURNED OFF. 
8343 101312 MANUAL 
8344 101314 BCOMPLETE IDLEX 
8345 101316 PRINTF #NOMAN 
8346 101336 EXIT TST 3; EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 
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xee TEST 34 SELECTED DISPLAYS (STAND=ALONE) SEQ 0219 
8347 
8348 ; 
8349 : IDLE LOOP. WAIT FOR KBD ENTRY TO CHANGE MODES. 
8351 101342 IDLEX: PRINTF #SCOUT 
8352 101362 IDLE: GMANID SDLIST,DISSEL,D,-1,0,DTHIL,YES 
8353 101402 000410 BR IDLEB 
8354 101404 IDLEA: GMANID SDASK,DISSEL,D,-1,0,DTHIL. YES 
8358 101424 005077 101404 IDLEB: CLR aDSR  ;STOP THE DPU (IE., FOR BLOOM) 
835 peeB JSR PC,WAITF 
8360 iee*B JSR PC. WAITF 
8361 te**eB JSR PC. WAITF 
8362 t***eB JSR PC. WAITF :WAIT FOR STOP 
8363 101430 012701 000050 MOV #40.,R1 ‘SET UP A TIMEOUT COUNTER. pteeB 
8364 101434 004737 027454 1$: JSR PC,WAITF ‘WAIT FOR THE STOP BIT. i #eeB 
8365 101440 103402 BCS 2$ [BR IF STOPPED. pteeB 
8366 101442 005301 DEC R1 [NOT STOPPED. BUMP COUNTER. pteeB 
8367 101444 001373 BNE 1$ ‘LOOP IF NOT STOPPED. pteeB 
8368 101446 2s: 
8369 101446 013700 101470 MOV DISSEL,RO 
8370 101452 001743 BEQ IDLE 
8371 101454 005037 101470 CLR DISSEL 
8372 101460 006300 ASL R 
8373 101462 004770 101236 JSR PC, aDTAB(RO) 
8374 101466 000746 BR IDLEA 
8376 101470 000000 DISSEL: 0 : DISPLAY CURRENTLY SELECTED. 
8378 101472 040 040 060 SDLIST: .ASCII / (© = “TYPE THIS" 
8379 101513 015 012 “BYTE 15,12 
8380 101515 040 040 061 “ASCII / °1 = TURN BLINKING ON/ 
8381 101543 015 012 “BYTE 15,12 
8382 101545 040 040 062 [ASCII / °2 = TURN BLINKING OFF/ 
8383 101574 015 012 “BYTE 15,12 
8384 101576 040 040 063 “ASCII. / °3 = COLOR BARS/ 
8385 101616 015 012 "BYTE 15,12 
8386 101620 040 040 064 "ASCII / 4 = 7X 7? DOTS/ 
8387 101640 015 012 "BYTE 15,12 
8388 101642 040 040 065 "ASCII / °5 = 7 X 7 CROSS=HATCH/ 
8389 101671 015 012 "BYTE 15,12 
8390 101673 040 040 066 ‘ASCII / °6 = PERIMETER OUTLINE/ 
8391 101722 015 012 "BYTE 15,12 
8392 101724 040 040 067 “ASCII /_°7 = BASIC COLOR ID/ 
8393 101750 015 012 “BYTE 15,12 
8394 101752 040 040 970 “ASCII / “8 = GUNS ID/ 
8395 101767 015 012 “BYTE 15,12 
8396 101771 040 040 071 “ASCII / “9 = ALL WHITE SCREEN/ 
8397 102017 015 012 "BYTE 15,12 
8398 102021 040 061 060 “ASCII / 10 = ALTERNATING WHITE SCREEN & PERIMETER OUTLINE/ 
8399 102103 015 012 "BYTE 15,12 
8400 102105 040 061 061 "ASCII / 11 = ALL RED SCREEN/ 
8401 102131 015 012 “BYTE 15,12 
8402 102133 040 061 N62 “ASCII / 12 = ALL BLUE SCREEN/ 
8403 102160 015 012 "BYTE 15,12 
8404 102162 040 061 003 “ASCIi / 13 = ALL GREEN SCREEN/ 
8405 102210 015 012 "BYTE 15.12 
8406 102212 015 012 SDASK: ‘BYTE 15.1 








Mm 1 
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VSV11/VS11 == GRAPHIC SYS. DIA 

eee TEST 34 SELECTED DISPLAYS (STAND-ALONE) 
8407 102214 050 102 ASCII /(BLINKING IS / 
8408 102231 117 106 106 SDO ASCII /OFF), / 
8409 102241 123 105 11 eASCIZ /SELECT DISPLAY / 
Brit ~EVEN 


SEQ 0220 








1 
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eee TEST 34 SELECTED DISPLAYS (STAND=ALONE) SEQ 0221 


8413 3 
ie ; TURN BLINKING ON. 
8416 102262 004737 105330 TBON: JSR AP EBL INK 3; ENABLE BLINKING. 
8417 102266 112737 000116 Het MOVB #'N, SDO+1 : ADJUST PROMPT MSG. 
8418 102274 112737 000051 10223 MOVB #') ,SD0+2 
8419 102302 112737 000054 102234 MOVB #',,SD0+3 
8420 102310 112737 000040 102235 MOVB #" ,SDO0+4 
8421 102316 000207 RTS PC 
8422 
8423 
8424 
8425 
8426 ; 
otSe ; TURN BLINKING OFF. 

29 102320 004737 105356 TBOFF: JSR PC ,DBLINK ; DISABLE BLINKING. 
8430 102324 112737 000106 102232 MOVB #'F .SDO+1 ; ADJUST PROMPT MSG. 

31 102332 112737 000106 102233 MOVB #°F ,SDO+2 
8432 102340 112737 000051 102234 MOVB #") ,SDO+¢3 

102 1127 000054 102235 MOVB #',,SD0+4 
102 0002 RTS PC 








VSV11/VS11 == GRAPHIC S$ 
eee TEST 34 SELECTED 


8436 

8437 

8438 

8439 

8440 

8441 

8442 

8443 

8444 

8445 

8446 102356 004737 026650 
8447 102362 004737 027066 
8448 102366 012737 112000 
8449 102374 012701 000004 
8450 102400 012702 000400 
8451 102404 012777 102460 
8452 102412 000402 

8453 102414 005277 100412 
8454 102420 004737 027454 
8455 102424 005302 

8456 102426 001411 

8457 102430 060137 102466 
8458 102434 042737 176000 
8459 102442 052737 112060 
Bree 102450 000761 

8462 102452 004737 104762 
Beer 102456 000207 

8465 102460 114000 000000 
8466 102466 112000 

8467 102470 040000 001776 
8468 102474 000002 000000 
8469 102500 040000 021776 
8470 102504 000002 000000 
8471 102510 173000 

8472 102512 160000 102466 


102466 


100420 


466 
466 


2 


oo 
mr 


000000 





BA 


1$: 


2$: 


3$: 


BG 
BV 


B 2 
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DISPLAYS (STAND-ALONE) 


SEQ 0222 


; COLOR BAR_GENERATOR. 
NUMBER AND COL 


OLOR OF BARS DEPENDANT ON PIXEL SIZE. 
: ROUTINE DEFAULTS TO 8 BAR NTSC RAINBOW (IF LUT INSTALLED), 
; OR ie W tr SHADES DEPENDANT ON PIXEL SIZE AS FOLLOWS: 
2 BITS <9:8> = 4 COLORS/SHADES. 


6 BITS <9:4> = 64 COLORS/SHADES. 
8 BITS <9:2> = 256 COLORS/SHADES. 
RS: JSR PC, CLRRW ;INIT DISPLAY. 
JSR PC-NTSC : NTSC COLORS (IF Lut AVAILABLE) 
MOV #LVEC!LO,BV SINIT DISPLAY CODE AT LVL 0.. 
MOV #4,R1 i+» eAND INCREMENT ey LVL . 
MOV 4286. »R2 : 256 PAIRS = 512 TOTAL. 
MOV #BGEN. aDPC 
SKP2 
INC apPC 
JSR PC,WAITF 
DEC R2 
BEQ 3$ :BR WHEN FINISHED. 
ADD R1,BV : OTHERWISE. INCREMENT. . 
BIC #°C1777,BV t...AND STRIP THE LEVEL.. 
BIS #LVEC!LO,BV :...AND REPLACE OPCODE. 
BR 2$ +... AND LOOP. 
JSR PC,OUTLIN : OUTLINE THE SCREEN. 
RTS PC + RETURN TO IDLE LOOP. 
EN: APNT, 0, 
: LVEC!LO 
1!0 MAXY P UP... 
2, 6 +..AND OVER... 
1!0 MXY !MAXY ecce WN... 
2, 6 +. AND OVER AGAIN. 
STOPN 
DJMP, BV 
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wee TEST 34 SELECTED DISPLAYS (STAND-ALONE) 


8474 3 

eet? : :? X 7 POINT TABLE FOR DOTS AND CROSS=HATCH. 
8477 102516 ix POINTS 

8478 102516 000104 YSOTBL: 34,%2 “AND _ 2O, HZ Y POINTS. 
8479 102520 000330 108.*2 “DELTA 

8480 102522 000554 182.*2 

8481 102524 001000 256.%2 

8482 102526 001224 330.*2 

8483 102530 001450 404.*2 

8484 102532 001674 478.*2 

8485 102534 177777 -1 

8486 102536 000110 Y6OTBL: 36.*2 : 60 HZ Y POINTS. 
8487 102540 000320 104.*2 DELTA = 68. 

8488 102542 000530 172.%2 

8489 102544 000740 240.%2 

8490 102546 001150 308.*2 

8491 102550 001360 376.%2 

8492 102552 001570 444,%2 

8493 102554 177777 -1 


SEQ 0223 







a 
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eee TEST 34 SELECTED DISPLAYS (STAND-ALONE) SEQ 0224 
8495 : 
8496 + DOT GENERATOR. 
8498 102556 004737 026650 BOTS: JSR PC, CLRRW sINIT DISPLAY. 
8499 102562 012702 102536 MOV #Y60TBL,R2 ‘ASSUME 60 HZ Y'S. 
8500 102566 023727 003246 000074 CMP HZ ,#60. 
8501 102574 001402 BEQ 
8908 102576 012702 102516 MOV #YSOTBL,R2 :WRONG, USE 50 HZ Y'S. 
8504 102602 012237 102664 1$: MOV (R2)+,DGY :SET Y POINT. 
8505 102606 100416 BMI 3$ 'BR WHEN ALL DOTS DONE. 
8506 102610 012701 102516 MOV #XTBL,R1 
8507 102614 012137 102662 2$: MOV (R1)+.DGX :SET X POINT 
8508 102620 100770 BMI 1$ X DONE, GET “NEXT Y. 
8509 102622 052737 040000 102662 BIS #1,DGX eT I BIT 
8510 102630 012777 102660 100174 MOV #DGEN, aDPC 
8511 102636 004737 027454 JSR PC,WAITF 
8312 102642 000764 BR 2$ LOOP 
8514 102644 012737 000001 105070 3$: MOV #1,0UTFLG : SAY WE WANT DOTS ON THE OUTLINE 
8519 102652 004737 104762 JSR PC. OUTLIN + OUTLINE THE SCREEN 
8517 
8518 102660 117774 DGEN: APNT!ALL 
8519 102662 040000 DGX: I1!0 
8520 102664 000000 DGY: 0 
8521 102666 173000 STOPN ; *x* NOP TO ENLARGE THE DOTS *** 
8522 102670 130000 RPNT 
8526 102700 173000 STOPN 


} 
| 
j 
| 
} 
2656 000207 RTS PC : RETURN TO IDLE LOOP. 
| 
| 
| 
} 






wee TEST 34 





8528 

8529 

8530 

8531 102702 004737 
8532 102706 005037 
8533 102712 012737 
8534 102720 005037 
8535 102724 012701 
8536 102730 023727 
8537 102736 001402 
he] 102740 012701 
8540 102744 012137 
8541 102750 100406 
8542 102752 012777 
8543 102760 004737 
Seee 1027 000767 
8546 102766 005037 
8547 102772 012737 
8548 103000 012737 
8549 103006 012701 
8550 103012 012137 
8551 103015 100406 
8552 103020 012777 
8553 103026 004737 
8554 103032 000767 
8555 103034 012737 
8556 103042 004737 
Se2e 103046 000207 
8559 103050 114000 
8560 103052 000000 
8561 103054 000000 
8562 103056 113774 
8563 103060 041776 
8564 103064 173000 


103050 
027454 


103054 


103052 


103050 
027454 


000001 
104762 


000000 


103060 


000074 


100052 


103060 
103062 


100004 


105070 


E 2 
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SELECTED DISPLAYS (STAND-ALONE) 


t CROSS=HATCH GENERATOR. 


HATCH: JSR PC,CLRRW 
CLR HX 
MOV #1 'MAXX, CHV 
CLR CHV+2 
MOV #Y60TBL,R1 
CMP HZ,460. 
BEQ 
MOV #YSOTBL,R1 
1$ MOV (R1)+,CHY 
BMI 
MOV #HGEN,aDPC 
JSR PC, WAITF 
BR 
2$: CLR CHY 
MOV #1!0,C 
MOV #MAXY , CHV42 
MOV #XTBL,R 
3$: MOV (R1)+,CHX 
BMI 4$ 
MOV #HGEN, aDPC 
in PC,WAITF 
4$ MOV #1,OUTFLG 
JSR PC,OUTLIN 
RTS PC 
HGEN APNT 
CHX: 0 
CHY: 0 
LVEC!ALL 
CHV Hal 


: INIT DISPLAY. 
SET FOR HORIZ VECTORS. 
sASSUME 60 HZ Y'S. 


WRONG AGAIN. 


:SET NEXT 
7BR AT END "or y°Ss. 


;LOOP FOR 7 HORIZ VECTORS. 


SET FOR VERT VECTORS. 


SET NEXT 
7BR AT END oF X'S. 


LOOP FOR 7 at VECTORS. 

SAY WE WANT DOTS ON THE OUTLINE. 
OUTLINE THE SCREEN 

RETURN TO IDLE LOOP. 


eee eee 
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wee TEST 34 SELECTED DISPLAYS (STAND-ALONE) SEQ 0226 
8566 $ 
S208 ; DISPLAY A SQUARE, OUTLINING THE PERIMETER OF THE SCREEN. 
8569 103066 004737 026650 PERIM: JSR PC,CLRRW ; CLEAR FOR READ/WRITE. 
8570 103072 012737 000001 105070 MOV #1,OUTFLG 3 SAY WE WANT DOTS ON THE OUTLINE 
8571 103100 004737 104762 JSR PC,OUTLIN ; OUTLINE THE SCREEN. 
8572 103104 000207 RTS PC ; RETURN TO IDLE LOOP. 









art 









TEST 34 


004737 


for 
=_-S 
ox 


000757 


wi 
oO 


Soo COOOOCOCOCOCOOCOoOO GCOCOOoOOoOoO 
Nm 
—s 
™m 


Ww 
N 
ar’ 
Nm 


012777 


— bt at — et — we SY SS 


000207 


114000 


103356 173000 


000077 


001700 
103240 


103270 
027454 
104762 


000000 
001776 


000000 
103240 
000004 
110302 


114 


103240 


077670 


077654 


103240 


077612 


000000 


000004 


125 
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SELECTED DISPLAYS (STANDALONE) 


é 


OLID: JSR PC,CL 
MOV WLVEE LO, 118 
MOV #100,R1 
BIS R1,11$ 
MOV #400,R2 
MOV #10$,aDPC 
JSR PC,WAITF 
BR 3$ 
2$: 
BIS #BITO,aDPC 
JSR PC ,WAITF 
3$: DEC R2 
BEQ 4$ 
BIT #77,R2 
BNE 2$ 
ASL R1 
BIC #1700,11$ 
BIS R1,11$ 
BR 2$ 
4$: 
MOV #12$,aDPC 
JSR PC, WAITF 
JSR PC,OUTLIN 
RTS PC 
: DISPLAY CODE. 
10$:  APNT,0,0 
1i$:  LVECILO 
1!0,MAXY 
2,0 
1!0,.MXY !MAXY 
2,0 
STOPN 
DUMP, 11$ 
12$:  APNT.4,4 
SETCB,ACAT 
"ALL 
.ASCIZ /BLUE 
.EVEN 


STOPN 


RED 


. 
e 


SEQ 0227 


: DISPLAY THE FOUR BASIC COLORS (BLUE, RED, LT GREEN, DK GREEN) 
AND DISPLAY THE NAME OF EACH UNDERNEATH. 
: EACH COLOR BAND WILL BE 1/4 SCREEN WIDTH. 


CLEAR FOR READ/WRITE. 
START WITH BLUE. 
(R2 a Bae BY 4 & CHANGES COLORS). 


START 
WAIT FOR DISPLAY STOP. 


CONTINUE THE DPU. 
WAIT FOR DISPLAY STOP. 
ALL DONE? 


YES. 
NO. TIME TO CHANGE COLOR? 
YES. 


NOW PRINT COLOR ID'S. 


; START THE DPU. 
; WAIT FOR DISPLAY STOP. 


OUTLINE THE SCREEN. 
RETURN TO IDLE LOOP. 


LSB-GRN MSB-GRN / 
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TEST 34 SELECTED DISPLAYS (STAND-ALONE SEQ 0228 
8619 ; 
8620 ; GUNS ID DISPLAY 
8621 ; THIS DISPLAY IS SIMILAR TO THE COLOR BARS DISPLAY, EXCEPT: 
8622 ; 1. THE BARS ARE H NTAL. 
gos? : 2. THE GUNS ACTIVATED FOR EACH BAR ARE PRINTED INSIDE EACH BAR. 
8625 103360 004737 026650 GUNID: JSR PC, CLRRW : CLEAR FOR READ/WRITE. 
8626 103364 012777 103636 077440 MOV rids. aDPC : START THE DPU. 
103372 004737 027454 JSR PC ,WAITF ; WAIT FOR DISPLAY STOP. 
8627 103376 0127046 112000 MOV WLVECTLO.RG : INIT VECTOR CONTROL. 
8628 103402 012702 000020 MOV #16.,R : INIT BAR COUNT. 
8629 103406 012703 000017 1$: MOV #15..R ; INIT VECTORS PER BAR 
8630 103412 023727 003246 000074 CMP H7,#60. : = 15 FOR 60HZ, 16 FOR SOHZ. 
8631 103420 001402 BEQ 2$ 
8632 103422 012703 000020 MOV #16. .R3 
8633 103426 010437 103646 28: MOV R4,11$ : MODIFY DISPLAY FILE VECTOR CONTROL. 
103432 052777 000001 077372 BIS #B1T0,aDPC : CONTINUE THE DPU. 
10344 004737 027454 JSR PC ,WAITF ; WAIT FOR DISPLAY STOP. 
8635 103444 005303 DEC R3 + THIS BAR COMPLETED? 
8636 103446 001371 BNE 33 : NO. 
8637 103450 062704 000100 ADD #100,R4 : VES. UPDATE VECTOR CONTROL. 
8638 103454 005302 DEC R2 : ALL BARS COMPLETED? 
8639 103456 001353 BNE 1$ : Noe 
8640 103460 012704 000004 MOV #4,R4 : YES. INIT MSG POSITION CONTROL. 
8641 103464 012701 103776 MOV #30$,R1 : INIT MESSAGE POINTER. 
8642 103470 012702 000020 MOV #16. .R2 : INIT MESSAGE COUNTER. 
8643 103474 012737 103774 103720 MOV ACHARIALL,23$ =: INIT pPISPLay FILE INTENSITY CONTROL. 
8644 103502 012777 103676 077322 MOV #20$, aDPC : START THE DPU. 
103510 004737 027454 JSR PC, WAITF ; WAIT FOR DISPLAY STOP. 
8645 103514 010437 103712 4$: MOV R4.22$ : MODIFY DISPLAY FILE MSG POSITION CONTROL. 
8646 103520 012700 103722 MOV #24$,R0 : MODIFY DISPLAY FILE MESSAGE. 
8647 103524 112120 5$: MOVB = (R1)+, (RO) + 
8648 103526 001376 BNE 5$ 
8649 103530 112760 000040 177777 MOVB = #" ~,=1(RO) 
8650 103536 112720 000040 6$: MOVB = #"_—< (RO) + 
8651 103542 020027 103770 CMP RO,#25$ 
8652 103546 001373 BNE 6t 
8653 103550 105060 177777 CLRB  --1(RO) 
8654 103554 052777 000001 077250 BIS #B1T0,aDPC : CONTINUE THE Deu. 
103562 004737 027454 JSR PC WAI TF : WAIT FOR DISPLAY STOP. 
8655 103566 062704 000074 ADD #74,R4 : UPDATE MSG POSITION CONTROL. 
8656 103572 023727 003250 001776 CMP YMAX,#MAXYSO =: ARE WE RUNNING 50HZ? 
8657 10 001002 BNE 60$ + BR IF NO 
8658 103602 062704 000004 ADD #4,R4 : YES -- NEED TO BUMP UP 2 MORE PIXELS. 
8659 103606 005302 60$: DEC R2 t ALL MSGS DONE? 
8660 103610 001407 BEQ 7$ : YES. 
8661 103612 020227 000010 CMP R2,4#10 : TIME TO FLIP INTENSITY? 
8662 103616 001336 BNE t NOT YET. 
8663 103620 012737 102000 103720 MOV ACHAR!LO,238 =: YES. CHANGE INTENSITY FROM WHITE TO BLACK. 
8664 103626 000732 BR 4$ 
8666 103630 004737 104762 7$: JSR PC,OUTLIN : OUTLINE THE SCREEN. 
8667 103634 000207 RTS PC + RETURN TO IDLE LOOP. 


8669 g 
8670 ; DISPLAY FILES. 


WW 
NN 
— —2> 
an 


NOW ons } 
pated abatababadaba § abadad ant anh abhadand and 
ooo 
Ww 
N 


PERLLELERELELLLS 


60000 
114000 


173000 
160000 


ojo jloalojoelejofojejejojoejlejelojq~) 
MMIMIMAAMI MI IA A UA aU aU 
SOOoooooooooooo°oo 


000000 000000 ios: 


000000 
0 


000002 
103646 
000000 


110302 
130 
103706 





000000 


130 
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TEST 34 SELECTED DISPLAYS (STAND=ALONE) 


APNT,0,0 

STOPN 

LVEC!LO ; THE COLOR BARS... 

TIMAXX. 0 

1 'MXY !MAXX,.0 

0,2 

STOPN 

DJMP,11$ 

APNT : THE IDENTIFICATION MESSAGES. 


4 

SETCB,ACAT 

CHAR! ALL 

goetee A XXXKX AKA AKAIKE IIIIIKIIIOK Z 
DJMP,21$ 


: MESSAGES FOR DISPLAY. 


eASCIZ /(0000)/ 
BLUE/ 


"ASCIZ /(0001) 
"ASCIZ /(0010) RED/ 

"ASCIZ /(0011) BLUE, RED/ 

“ASCIZ /(0100) LSB-GRN/ 

“ASCIZ /(0101) BLUE, LSB-GRN/ 

"ASCIZ /(0110) RED, LSB-GRN/ 

“ASCIZ. /(0111) BLUE, RED, LSB-GRN/ 

"ASCIZ /(1000) M N/ 

"ASCIZ /(1001) BLUE, MSB-GRN/ 

"ASCIZ. /(1010) RED, MSB-GRN/ 

"ASCIZ /(1011) BLUE, RED, MSB-GRN/ 

“ASCIZ /(1100) LSB-GRN, MSB-GRN/ 

“ASCIZ /(1101) BLUE, LSB-GRN, MSB-GRN/ 
“ASCIZ /(1110) RED, LSB-GRN, MSB-GRN/ 
-ASCIZ /(1111) BLUE, RED, LSB-GRN, MSB-GRN/ 



















4 012746 
8725 104546 000402 


6 
1h44 104550 012746 
8729 104554 004737 
04560 


8735 104610 000207 

8736 

8737 104612 117774 

8738 104614 170100 
616 173000 


003774 
002200 
002100 
003400 
026650 
0 


104612 
027454 


104612 
076226 


2 
VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113 gy etre 11:23 PAGE 123 
wee TEST 34 SELECTED DISPLAYS (STAND-ALONE) 


: DISPLAYS FOR FILLING SCREEN WITH SOLID COLOR 
SCRWHT: MOV #ALL,=(SP) 
BR §CRCOM 


SCRRED: 


SCRBLU: 


SCRGRN: 


SCRCOM: 


10$: 


MOV 
BR 
MOV 
BR 
MOV 
7. 


APNT! ALL 
SE TMEM 
STOPN 


#L0!200,=(SP) 
SCRCOM 
#L0!100,=(SP) 
SCRCOM 


#L0!1400,-(SP) 
PC,CLRRW 

& . 
(SP)+,10$ 


#108, aDPC 
PC ,WAITF 
PC 


GO TO COMMON SECTION 
GET RED ONTO STACK, 
GO TO COMMON 


; GET BLUE ONTO STACK, 
OMMON 


GO TO C 


; GET FULL GREEN ONTO STACK, 


:CLEAR FOR READ/WRITE 
SETUP COLOR TABLE (IF AVAILABLE) 


7 INIT ote DATA SELECTION 
INSERT THE COLOR 
START THE DPU 


;WAIT FOR DONE 
;RETURN TO IDLE 


;SET THE MEMORY 





SEQ 0230 
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eee TEST 34 SELECTED DISPLAYS (STAND-ALONE SEQ 0231 
8741 
8742 ; “BLOOM'' TEST DISPLAY 
8743 ; THIS DISPLAY ALTERNATELY DISPLAYS A FULL WHITE SCREEN AND A PERIMETER OUTLINE. 
8744 ; THE DISPLAY CHANGES ONCE EVERY 2 SECONDS. 
8746 104620 004737 025402 BLOOM: JSR — PC, DPINIT INIT THE DPU 
8747 104624 004737 102320 JSR —- PC. TROFF TURN BLINKING OFF 
8748 104630 004737 027066 JSR —-PC..NTSC SET UP THE COLOR TABLE (IF AVAILABLE) 
8749 104634 013737 003250 104730 MOV —s YMAX,, 128 SET UP THE MAX Y VALUES, BASED ON FREQUENCY. 
8750 104642 013737 003250 104740 MOV —- YMAX, 13$ 
8751 104650 052737 020000 104740 BIS - #MXY.13$ 
8752 104656 012777 104666 076146 MOV «#108. aPC ;START THE DISPLAY & LET IT RUN. 
8793 104664 000207 RTS —s PC RETURN TO THE IDLE LOOP 
8755 ; | 
8796 ; DISPLAY FILE: 
8758 104666 176034 10$: — wRT!CHO ;SET ALL CHANNELS TO WRITE-ONLY, SWITCHENABLED. 
8759 104670 176434 WRT'CH1 
8760 104672 177034 WRT! CH2 
8761 104674 177434 WRT CH3 | 
8762 ;LOOP TO HERE: | 
8763 104676 117774 000000 000000 17$: APNT!ALL,O,0 ;SET WHITE PIXEL DATA 
8764 104704 170100 SETMEM :SET MEMORIES TO ALL WHITE | 
8765 104706 170200 SWITCH :SWITCH TO READ-ONLY TO DISPLAY WHITE SCREEN | 
8766 104710 164170 DNOP+120. SHOW IT FOR 2 SECONDS. 
8767 104712 170200 SWITCH ; SWITCH TO WRITE-ONLY MODE. 
8768 104714 170140 CLRMEM ;CLEAR MEMORI 
8769 104716 117774 000000 000000 APNT!ALL,0,0 START PERIMETER OUTLINE AT <0,0> 
8770 104724 110000 LVEC {ENTER LONG-VECTOR MODE, 
8771 104726 040000 1!0 :DRAW LEFT EDGE . 
8772 104730 001776 12$:  MAXY i... TO TOP OF VISIBLE AREA. 
8773 104732 041776 I !MAXX :DRAu TOP EDGE 
8774 104734 000000 0 i... TO RIGHT SIDE. 
8775 104736 040000 1!0 :DRAW RIGHT EDGE ... 
8776 104740 021776 138: MKY!MAXY i... TO BOTTOM. 
8777 104742 061776 I !MXY ! MAXX :DRAW BOTTOM EDGE ... 
8778 104744 000000 0 BACK TO <0,0> | 
8779 104746 170200 SWITCH : WITCH TO READ-ONLY TO DISPLAY PERIMETER | 
8780 104750 164170 DNOP+120. SHOW IT FOR 2 SECONDS. | 
8781 104752 170200 SWTCH : SWITCH BACK TO WRITE-ONLY | 
8782 104754 160000 104676 DUMP, 11$ :LOOP BACK TO DO IT ALL OVER AGAIN. | 
8784 


SERA ERR ERE EEE EEE EEEEAEEAEAEEAEERREEEEEREEREREREREEEREEREEEEEE 
** 

’ 

se END TEST 34 

** 

. 

° 


SEERA EERE EEE AREER 
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wee TEST 34 SELECTED DISPLAYS (STAND-ALONE) 


8786 

8787 

8788 

8789 

8790 

8791 

8792 

8793 104762 013737 003250 

8794 104770 013737 003250 

8795 104776 052737 020000 

8796 105004 012777 105036 

105012 004737 027454 

8797 105016 005737 105070 

8798 105022 001404 

8799 105024 004737 105072 

8800 105030 005037 105070 

8801 105034 

8802 105034 000207 

8803 

8804 

8805 

8806 

8807 105036 114000 000000 

8808 105044 113774 

8809 105046 040000 

8810 105050 001776 

8811 105052 041776 

8812 105054 0000 

8813 105056 040000 

8814 105060 021776 

8815 105062 06177 

8816 105064 000000 

8817 105066 173000 

8818 

8819 

8820 105070 900000 

8821 105072 013737 003250 

8822 105100 013746 003250 

8823 105104 062716 000002 

8824 105110 006216 

8825 105112 006216 

8826 105114 012637 105302 

8827 105120 012777 105134 

105126 004737 027454 

8828 105132 000207 

8829 

8830 

8831 105134 116000 000000 
| 8832 105142 160001 105246 
| 8833. 105146 160001 105246 

8834 105152 160001 105246 

8835 105156 116000 

8836 105160 000000 

8837 105162 001676 

8838 105164 160001 105246 

8839 105170 160001 105246 
| 8840 105174 160001 105246 


000000 


105162 


075704 


000000 


: SOME MISCELLANEOUS DISPLAY SUBROUTINES. 


SUBROUTINE TO OUTLINE THE PERIMETER OF THE SCREEN. 


BUTLIN: MOV YMAX,11$ : SET Y COORDINATES AS PER HZ. 
MOV YMAX,12$ 
BIS #MXY,12$ 


Ore eee 


MOV #10$,aDPC : START THE DPU 
JSR PC,WAITF : WAIT FOR DISPLA STOP. 
TST OUTFLG : MAKE IT DOTTED GB DOTS PER SIDE)? 
BEQ 1$ BR IF NO 
JSR PC,OUTDOT ZYES == GO DO IT 
‘. CLR OUTFLG :THEN CLEAR THE FLAG 
; RTS PC 
t DISPLAY CODE. 
10S: APNT,0,0 
LVECIALL 
118: MAXY 
1 !MAXX 
0 
1!0 
12$: MXY 'MAXY 
1 !MXY !MAXX 
STOPN 
ROUT INE TO MAKE 3 DOTS IN EACH LINE OF THE PERIMETER: 
OUTFLG: 0 s FLAG FOR ENABLING 
OUTDOT: MOV YMAX,OUTDT1 SET UP THE DISPLAY FILE 
MOV YMAX, = (SP) : we. WITH FREQ.- DEPENDENT Y DATA, 
ADD #2, (SP) 
ASR (S 
ASR (SP 


) 
MOV (SP)+,QUTDY1 


MOV MOUTDTF,aDPC =; START THE DPU 
JSR PC ,WAITF + WAIT FOR DISPLAY STOP. 
RTS PC 

DISPLAY FILE FOR OUTLINE DOTS: 

OUTDTF: APNT! ‘L0,0,0 : BEGIN AT 0,0 WITH BLACK 
DJMS .OUTDEX : D0 bor A aT “i006 
DJMS . OUTDF X : O06. 0 
DJMS , OUTDF x Rage ned 120 06.0. 
APNT ‘LO 

OUTDT1: MAXY60 : GETS YMAX 
DJMS, OUTDFX : bd DOT AT 400, YMAX 
DUMS, OUTDFX : ... AND AT 1060, YMAX 
DIMS, OUTDFX + 12. AND AT 1400, YMAX 


SEQ 0232 


c--—--- 


———_--— ee a 
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eee TEST 34 SELECTED DISPLAYS (STANDALONE) 


8841 105200 116000 000000 000000 
8842 105206 160001 105276 
8843 105212 160001 10527 
8844 105216 160001 105276 
| BB45 105222 116000 001776 000000 
| 8846 105230 160001 105276 
8847 105234 160001 105276 
| 8848 105240 160001 105276 
| 8849 105244 173000 
8850 
8851 105246 110000 
8852 105250 000376 000000 
8853 105254 060016 000000 
8854 105260 22 000000 
8855 105264 040016 000000 
8856 105270 020020 000000 
8857 105274 165000 
8858 
8859 105276 112000 
8860 105300 000 
8861 105302 000360 
8862 105304 000000 020020 
8863 105310 040000 000040 
8864 105314 000000 020020 
8865 105320 113774 
8866 105322 040000 000000 
8867 105326 165000 
8868 
8869 
8870 
8871 
8872 
8873 
8874 105330 
105330 012777 105344 075474 
105336 006737 027454 

8875 105342 000207 

8876 

8877 

8878 

8879 

8880 105364 175401 

8881 105346 175501 

8882 105350 175601 

8883 105352 175701 

8884 105354 173000 

8885 

8886 

8887 

8888 

8889 

| 8890 
8891 105356 

| 105356 912777 105372 075446 

| 105364 004737 027454 

8892 105379 000207 


--— - e ee 


APNT'LO,0,0 ; GO .-— 0 0,0 

; DOA Dor T 0, YMAX*#2/4 

; eee AND A t 0. *2e<YMAX#2/4> 
. AND AT 0, 3*<YMAX+2/4> 


; sd A A. a 2 YMAX+2/4 


o 
= 
=z 
“ 
— 
So 
Cc 
“ 
o 
nm 
< 
Se te ee 


=] 
cq 
=z 
wn 
. 
Cc 
_ 


DJMS, OUTDFY : 2*<YMAX+2/4> 
DJMS, OUTDFY é ° > AND AT 0, 3*<YMAX+2/4> 
OUTDFX: LVEC 
MAXX+2/4=2,0 ; SPACE OVER +400-2 
1'M!14.,0 3; MAKE 8 BLANK PIXELS 
18..9 ; GO TO BEYOND THE TARGET POINT 
1'14.,0 ; MAKE 8 BLANK PIXELS 
M'16., ; GO BACK TO TARGET 
DPOP ; RETURN 
OUTDFY: LVEC!LO 
OUTDY1: owt: ei : GETS YMAX4#2/4 
0,M!1 ; BACK UP 
110.33 : ZAP 17 PIXELS 
0,M!16. ; BACK UP 
LVEC! WHITE 
1'0,0 ; WRITE A DOT 
DPOP 


> SUBROUTINE TO ENABLE BLINKING (ALL CHANS). 


EBL INK: 
MOV #108, aDPC : START THE DPU 
sk PC .WALTE : WAIT FOR DISPLAY STOP. 


: DISPLAY CODE. 


10$: BLINK 
BL INK+100 
BL INK+200 
BL INK+300 
STOPN 


> SUBROUTINE TO DISABLE BLINKING (ALL CHANS). 


DBL INK: 
#10$, anrc : START THE DPU. 
iv <o oWAITF ; WAIT FOR DISPLAY STOP. 


SEQ 0233 


ee A 
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eee TEST 34 SELECTED DISPLAYS (STAND-ALONE) SEQ 0234 
8894 ; 
8895 : DISPLAY CODE. 
8896 . 
8897 105372 175400 10S: NBL INK 
B898 105374 175500 NBL INK*+160 
8899 105376 175600 NBL INK+200 
8900 105400 175700 NBL INK+ 300 
8901 105402 173000 STOPN 


< 
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eee TEST 35 SYSTEM CONFIGURATION TYPEOUT (STAND-ALONE) SEQ 0235 

8905 ARERR RRR ERRERR RE RERE ERR ERR ERERRERERRERREREE REE EERE EERE 
ze 
3* BEGIN TEST 35 = SYSTEM CONFIGURATION TYPEOUT (STAND-ALONE) 
** 
TTITI tT iii ititititiitttitiiiitiiiiiiiiiiiii iii iii reer 
; (ITERATION COUNT = 1.) 

8904 

8905 105510 005737 030070 TST TESTK 3; STAND ALONE ENTRY? 

8906 105514 001402 BEQ SCONTY : YES. 

yaa t4 105516 EXIT TST : EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 

8909 3 

8910 ; THIS ‘‘TEST'’ COMPUTES THE VSV SYSTEM CONF IGURATICN AND TYPES IT ON 

8911 : THE TTY, AFTER WHICH IT — FOR THE USER TO ‘'CONTROL=-C"' 

eotg ; BACK TO THE MONITOR (DS 

8914 105522 013701 002012 SCONTY: MOV LSUNIT,R1 ; GET NUMBER OF LAST UNIT 

8915 105526 162701 000001 SUB #1,R1 

8916 105532 006301 ASL MAKE A WORD OFFSET 

8917 105534 032761 040000 003302 BIT #B1T14,ERTABL(R1S ; WAS wae UNIT PREVIOUSLY DROPPED? 

8918 105542 001402 BEQ +6 ; BR IF 

8919 105544 000137 106440 JMP 16$ ; GO TO END’ IF YES =~ WE FINISHED. 

8920 105550 004737 027702 JSR PC,TSTGO 

8921 105554 005037 030070 CLR TESTK ; CLEAR TEST COUNTER SO WE CAN REENTER. 

8922 105560 004737 025402 JSR PC,DPINIT 3; INITIALIZE THE DPU 

8923 105564 013701 002012 MOV LSUNIT,R1 

8924 105570 162701 000001 SUB #1,R1 

8925 105574 006301 ASL 1 

8926 105576 032761 040000 003302 BIT #B1T14,ERTABL(R1) 

8927 105604 001402 BEQ +6 

8928 105606 000137 106414 JMP 15$ 

8929 105612 004737 030414 JSR PC, CONFIG 

8930 105616 PRINTF #NULCR 

8931 105636 012701 003256 MOV A pei R1 ; INIT MEM TABLE P 

8932 105642 012102 1$: MOV d+ wR ; GET A MEM TAB ENTRY. Bi OF TABLE? 

8933 105644 100467 BMI és ; YES. (AND R1 NOW PTS TO SYNC CHAN TABLE.) 

8934 105646 001775 BEQ 1$ ; NO. (BUT THERE'S NO MEMORY THERE EITHER.) 

8935 105650 005003 CLR RS : INIT BIT COUNTER. 

8936 105652 012704 000010 MOV #8. .R4 : INIT SHIFT COUNTER. 

8937 105656 005005 CLR R5 ; INIT NON-STDD FLAG. 

8938 105660 302 ASL R2 ; POSITION THE MEMORY BITS. 

8939 105662 006302 ASL R2 3 

8940 105664 006302 ASL Re : 

8941 105 302 ASL R2 ; 

8942 105670 006302 ASL R2 ; 

8943 105672 006302 2$: ASL R2 3; SHIFT. GOT A ONE? 

8944 105674 100001 BPL 3$ ; NO. 

8945 105676 005203 INC R3 3; YES. COUNT IT. 

8946 105700 005304 3$: DEC R4 : DONE ENOUGH SHIFTING? 

8947 105702 001373 BNE 2$ 3 

8948 105704 016102 177776 MOV a6 a1? As s YES. NOW CHECK IF ALL ONE BITS ARE - 

8949 105710 010305 MOV R3,R5 ; = CONSECUTIVE, STARTING AT BIT 9 = 

8950 105712 006302 ASL Re : > CIF NOT, WE HAVE A NON-STANDARD - 

8951 105714 006302 ASL Re > = MEMORY. S 


C3 
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eee TEST 35 SYSTEM CONFIGURATION TYPEOUT (STAND-ALONE) SEQ 0236 
8952 105716 006302 ASL R2 : 
8953 105720 006302 ASL Re : 
8954 105722 006302 ASL R2 : 
8955 105724 006302 4$: ASL R2 : 
8956 105726 100002 BPL 5$ ; 
8957 105730 005305 DEC R5 : 
8958 105732 001374 BNE 4$ : 
8959 105734 010102 5$: MOV R1,R2 ; GET NUMBER OF THIS MEM IN R2. 
8960 105736 162702 003260 SUB #MEMTAB+2,R2 so: 
8961 105742 006202 ASR R2 : 
8962 105744 016104 177776 MOV -2(R1) ; GET TABLE ENTRY FOR THIS MEM IN R4. 
8963 105750 PRINTF #SCMEM, RS R4,R3 ; PRINT DATA FOR THIS MEM, 
8964 105776 005705 TST R5 : NON=STANDARD? 
8965 106000 001720 BEQ 1$ : NO. NEXT MEM. 
8 106002 PRINTF #SCNSTD é vee TELL THE WORLD!. 
8967 106022 000707 BR 1$ : NEXT MEM. 
8969 106024 012102 6$: MOV (R1)+,R2 : GET SYNC CHAN TABLE ENTRY . END OF TABLE? 
8970 106026 100376 BPL 6$ + NO. (BUT NO SYNC CCHAN THERE). 
8971 106030 020227 177777 CMP R2,4-1 : MAYBE. IS IT EOT OR A SYNC CHAN? 
8972 106034 001443 BEQ 8$ : EOT. 
8973 106036 010103 MOV R1,R3 : SYNC CHAN. GET ITS NUMBER IN R3. 
8974 106040 162703 003272 SUB MSYCTAB+2,R3_—: 
8975 106044 006203 ASR 3 : 
8976 106046 PRINTF #SCSYC,R3,R2 ; PRINT DATA FOR THIS SYNC CHAN. 
8977 106072 032702 020000 BIT #BIT13.R2 t INTERLACED? 
8978 106076 001011 BNE 7$ : YES. 
8979 106100 PRINTF A#SCNINT 3; NO. 
poet 106120 000741 BR 6$ 3; NEXT SYNC CHAN. 
8982 106122 7$: PRINTF #SCINT 3 
8983 106142 000730 BR 6$ : NEXT SYNC CHAN. 
8985 106144 005737 002512 8$: TST MF GFLG : MFG MODE? 
8986 106150 001521 BEQ 5$ : NO. 
8987 106152 013702 003022 MOV MF GMO,R2 : GET MFG MASTER FOR MEM 0. 
8988 106156 005003 CLR 3 : INIT BIT COUNTER. 
8989 106160 012704 000010 MOV #8. .R4 : INIT SHIFT COUNTER 
8990 106164 005005 CLR R5 t INIT NON-STDD FLAG. 
8991 106166 006302 ASL R2 ; POSITION THE MEMORY BITS. 
8992 106170 006302 ASL R2 ; 
8993 106172 006302 ASL R2 : 
8994 106174 006302 ASL R2 7 3 
8995 106176 006302 ASL R2 ; 
8996 106200 006302 9$: ASL R2 : SHIFT. GOT A ONE? 
8997 106202 100001 BPL 10$ + NO. 
8998 106204 003205 ¢ INC 3 + YES. COUNT IT. 
8999 106206 005304 10$: DEC RG : DONE ENOUGH SHIFTING? 
9000 106210 001373 BNE 9$ + NO. 
9001 106212 016102 177776 MOV =e (R1) .R2 : YES. NOW CHECK IF ALL ONE BITS ARE - 
9002 106216 01030 MOV R3,R5 > = CONSECUTIVE, STARTING AT BIT 9 - 
9003 106220 006302 ASL 2 3 ~ CIF NOT, WE HAVE A NON-STANDARD - 
9004 106222 006302 ASL Re + = MEMORY. 5 
9005 106224 006302 ASL R2 ; 
9006 106226 006302 ASL Re ; 
9007 106230 006302 ASL R2 : 
9008 106232 006302 11$: ASL R2 F 
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35 SYSTEM CONFIGURATION TYPEOUT (STAND-ALONE) 


eee TEST 


geeeeeeee 5 
ONAULSWO”OD 


3 
0 


mee ed ed ed ed wd a st 3 a SS tS ss — ss ts — — — 


9020 


Sy 
Nm 
W 
> 


WANROPOR I POPonor 
NNN SOW 
NOAA SMUAVOO 


ES Aitttte eee de 


FW AWWW 
UA ARSWWINNY SN NUN! 
 NOOSNMALOLS MNMOfH 


SE SS58r8e2 


SRREE 
va Pas ss 


S 
RASS 
on foo 


100002 


74 
013704 


005705 
001410 


013702 


032702 
001011 


000410 


013701 
001002 


000776 


003022 


003024 
020000 


002012 
000001 


003302 


I os 
_—— 32 O0O-O— 
AAR AAO 


BPL 12$ 
R5 


11$ 
128: MOV MF GMO ,R4 
el #SCMMMO,R4, 


13$: MOV MFGSO,R2 


BIT 
BNE " 
NO. 
BR 
148: PRINTF #SCINT é 
15$: MOV LSUNIT,R1 ; GET NUMBER OF UNITS 
SUB #1,R1 
ASL 3; MAKE A WORD OFFSET 
TST ERTABL (R1) ; DID LAST UNIT RUN? 
BNE 16$ ; BR IF YES 
EXIT TST ; NO == EXIT TO DO ANOTHER. 
16$: PRINTF #SCOUT 3 
17$: BREAK ; WAIT FOR USER TO <*C>. 
17$ : 
SCMEM: .ASCIZ /%ZNZAMEMORY: 2D1%A, MEMTAB VAL: %06%A, %D1%A BITS/ 
SCNSTD: .ASCIZ /%A, (NON-STD)/ 
SCSYC: .ASCIZ /%NZASYNC CHAN: goraa, SYCTAB VAL: %06/ 
INT: .ASCIZ iA. INTERLACED/ 
SCNINT: .ASCIZ /2A leita sak 
0: .ASCIZ /%NZAMFG MASTER M 0, MEMTAB VAL : ZOGTA. 2D1%A BITS/ 
SCMMSO: .ASCIZ fa ph SYNC CHAN 0, SYCTAB VAL : 
SCOUT: peaie /UNIN%A —-(<*C> TO GET BACK TO ‘a> EN/ 
END. TEST 
FERRER EERE EREEEEREEEEKEE 
** 
3* END TEST 35 
** 
ITITITITITITITITILIT TITTLE TLE LELLLLLELLL LLL LLL ELE 


R3 PRINT DATA FOR THIS 


NON-STANDARD? 
YES. TELL THE WORLD!. 


INTERLACED? 
YES 


GET TABLE ENTRY FOR a MEM IN R4. 


GET MFG MASTER SYNC CHAN 0 IN R2. 
yet Ll DATA FOR THIS SYNC CHAN. 


SEQ 0237 
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9047 SBTTL 

sit 4 .SBTTL SUPERVISORS DISPATCH TABLE 

9050 p++ 

9051 : THIS TABLE HOLDS THE STARTING ADDRESS OF EACH TEST 
S026 ; FOR THE SUPERVISOR'S DISPATCHER. 


9054 


SEQ 0238 


3 
VSV11/VS11_ == GRAPHIC SYS. DIAG MACRO M1113 — 11:23 PAGE 128 


*** LUMINANCE (GREY=SCALE) AND COLOR DATA TAB SEQ 0239 
pot d -SBTTL *** LUMINANCE (GREY=SCALE) AND COLOR DATA TABLES 
9059 ; TABLE OF 256 (8 BITS) LUMINANCE VALUES TO PRODUCE 
Sect ; A LINEAR 12 BIT GREY=SCALE. 

9062 107222 LUMTBL: 
9063 107222 000000 000400 001000 0 400, 1000, 1 
9064 107232 001400 000401 002000 1400, 401, 2000. 1001 
9065 107242 002400 000002 003000 2400. 2, 3000, 402 
9066 107252 003400 002401 004000 3400. 2401, 4000. 3 
9067 107262 003001 002020 005000 3001. 2020, 5000. 2420 
9068 107272 000004 005400 003002 4 5400, 3002. 6000 
9069 107302 001040 006400 002403 1640, 6400, 2403; 5 
9070 107312 003003 002040 007400 3003. 2040. 7400. 5020  ; LEVEL 37 
9071 107322 002404 000060 000006 2404: 60 ‘ 1441 
9072 107332 003004 002023 001042 3004. 2023, 1042, 2405 
9073 107342 000007 004440 002024 7 4440, 2024. 1061 
9074 107352 000100 000010 000462 160 10 462, 2025 
9075 107362 001044 002407 000011 1044, 2467, 1 501 
9076 107372 007440 001063 000120 7440. 1063. 120, 12 
9077 107402 000502 003500 001064 502 3500, 1064, 2411 
9078 107412 005407 000503 002030 5407, 503,° 2030, 1065 ; LEVEL 77 
9079 107422 000140 000014 000504 140, 14 504, 2031 
9080 107432 001066 002413 000015 1066, 2413, 15 505 
9081 107442 007444 002540 000160 7444. 2540. 160 16 
9082 107452 003014 003504 002541 3014. 3504; 2541, 125 
9083 107462 000017 002160 002034 17, 2160. 2034. 200 
107472 000126 003142 002161 126 3142. 2161. 3506 
9085 107502 001072 001600 007066 1072, 1600; 7066. 2162 
107512 002036 000220 001601 2036. 220 1601, 3126 : LEVEL 137 
9087 107522 002163 005161 002563 2163, 5161, 2563. 131 
7532 004600 000513 005162 4600. 513, 5162. 240 
9089 107542 000132 003146 002165 132 3146, 2165. 1222 
107552 004220 004074 004602 4220, 4074; 4602. 2166 
9091 107562 003513 000260 004075 3513. 260 4075, 3132 
9092 107572 003640 001152 002477 3640. 1158, 2477, 3223 
9093 107602 000607 003567 000300 607 3567. 300 310 
9094 107612 005476 002243 005241 5476, 2243, 5241, 1154 ; LEVEL 177 
9095 107622 152 004660 003153 4152; 4660. 3153; 2172 
107632 003517 000320 004117 3517. 320 4117, 646 
642 002173 001230 002555 2173. 1236, 535, 157 
9098 107652 7 007624 000340 647 7624, 340 2574 
662 005554 002321 002213 5554, 2321, 221%, 2703 
9100 107672 000267 003265 004612 267. 3265. 4612. 3647 
9101 107702 000360 001741 003266 360 1741, 3266. 4631 
9102 107712 002177 005213 703 2177, 5213. 5703; 1634 3; LEVEL 237 
9103 107722 000671 003651 005176 671 3651. 5176. 272 
9104 107732 001617 266 001362 1617, 6266. 1362. 4360 
9105 107742 000273 007232 000655 273 7232, 655 3653 
9106 107752 001237 004235 004743 1237, 4033, 4748, 1256 
9107 107762 007615 001312 005237 7615. 1312, 5237, 3345 
9108 107772 000731 007616 002712 731 7616, erie. 1747 
9109 110002 006235 002331 003656 6255, q331. 636, 4364 
9110 110012 000277 003275 00233 : 7 273. : 32, $330 ; LEVEL 277 
9111 1100¢¢ 002714 005712 003276 2714, 5712: 276, 7745 
9112 110032 001370 004366 007364 1370. 4366. 7364. 3277 
9113 110042 002334 002371 004367 2334. 2371. 4367. 5714 
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wee LUMINANCE (GREY=SCALE) AND COLOR DATA TABLES SEQ 0240 


9114 110052 004751 006276 001372 
9115 006 


NIM 


4751, 6276, 1372, 2717 
1 11006¢ 005715 00475 277 65715, 4 36. 6277, 1373 
9116 110072 004371 007367 004753 4371, 136 » 4753, 2337 
9117 110102 001374 004372 005717 1374, 43 g 5717, 4754 
9118 110112 007752 001375 004373 7752, 1375, 4373, 1757 3 LEVEL 337 
9119 110122 004755 007753 005337 4755, 7753, 5337, 4374 
9120 110132 007372 003357 355 7372, 3357, 6355, 7754 
9121 110142 005374 002776 005774 5374, 2776, 5774, 7337 
9122 110152 006356 005357 376 6356, 5357, 4376, 7374 
9123 110162 004776 007756 006757 4776, 7756, 6757, 4377 
9124 110172 007375 006376 007757 7375, 6376, 7757, 2777 
9125 110202 006776 005777 006376 6776, 5777, 6376, 6377 
31$9 110212 007776 006777 007377 7776, #£«6777, 7377, 7777 ; LEVEL 377 
3168 3 THE BASIC (NTSC) COLORS, PLUS BLACK AND WHITE. 
9130 007400 BLU= 17*BIT8 
9131 000017 RED= 17*BITO 
ae 000360 GRN= 17*BIT4 
9134 110222 000000 NTSC8: 0 ; BLACK (NO COLOR AT ALL). 
9135 110224 007400 BLU 
9136 110226 000017 RED 
9137 110230 007417 RED+BLU 3 MAGENTA 
9138 110232 000360 GRN 
9139 110234 007760 GRN+BLU : CYAN 
9140 110236 000377 GRN+RED : YELLOW 
ie) 110240 007777 GRN+RED+BLU ; WHITE 
ered ; A 16 LEVEL VARIATION OF THE ABOVE TO EXPERIMENT WITH. 
110242 000000 EXPRM: 0 
110244 000043 43 3; BROWN (3RD LEVEL YELLOW). 
110246 000000 0 
110250 000017 RED ; RED 
110252 000000 0 
110254 000117 117 : ORANGE (RED + HI GREEN) 
110256 000000 0 
110260 000377 RED+GRN ; YELLOW 
110262 000000 0 
110264 000360 GRN 3; GREEN 
110266 000000 0 
110270 007400 BLU ; BLUE 
110272 000000 
8 110274 007417 RED+BLU 3; VIOLET (MAGENTA) 
By 34 000000 


300 007777 BLU+RED+GRN ; WHITE. 
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we ASCII CHARACTER ADDRESS TABLE AND SUBPI 


110302 


110326 
110334 


— a ee = =  — 4 = ws os oe oe es SS = = SS) = = = 2 Ss SS ws Ss SS ss SS SS SYS SY SS SS 
oh ae a ed ts ts ds =) a oh ss = tS ts ee es St i 
SSSSSSSSSSSRERERERESEPEEREFERESESEERERESES 


72 


NWOAWONALSNOOM— UN 
BALLER MUNOS SNONONSNNNG 


Ok kk kk kk kk kk dk td dd dd a ss 
Quw— 
AMILOX 


» SBTTL we ASCII CHARACTER ADDRESS TABLE AND SUBPIX 
THE FOLLOWING 128. WORDS goign THE CHARACTER SUBPIX 


TARTING ADDRESSES. 0-37 A 


ACAT: 


140-177 ARE NULL FOR NOW. 
(EXCEPT FOR 12 AND 1 


« «NULL 30-37 ARE NULL (NLISTED). 


$SVPC=. :SAVE PC, BACK UP AND... 
»=ACAT+<12*%2> 
ee «INSERT LINE FEED.. 
» =ACAT+<15%2> 
- CR - AND —— RETURN ADDRESSES. 
-=$SYPC TRESTORE P 
- «SPC : SPACE 
» «EXC sEXCLAM 
- -QU0 ;DOUBLE QUOTE. 
. «NUM es SIGN 
- DOL 
. PCT ‘PER CENT 
. -AND ; AMPERSAND 
- -QU01 ssi QUOTE 
» «LPAR LFT PAREN 
. -RPAR 3RT PAREN 
. AST ; ASTERISK 
»-PLS :PLUS 
- CMA ; COMMA 
. -MNS :MINUS 
- DOT ;PERIOD 
- «SLSH : SLASH 
--00 
11 
»22 
nea 
» 44 
sot 
. -66 
me 4 4 
..88 
99 
--COLN ; COLON 
- SEMI SEMI COLON 
- LANG :LFT ANGLE 
EQ ;EQUALS 
RANG :RT_AN 
- «QUES ; QUESTION 
ATS zAT SIGN 
AA 
BB 


SEQ 0241 





SEQ 0242 


3 
129-1 
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*** ASCII CHARACTER ADDRESS TABLE AND SUBPIX 


140-177 ARE NULL (NLISTED). 


— 
wre w 
~MMw 
ety oO 
Sn<-3 
@ soe 

—<Oamw 
-o &£a 
utreaetea 
+Oav> 
*e e®*e *e * 


MMMM FT TT TUNUN OO LRN OSO 


Se ed el el el eel el el ll lel ce el el el el ll 
ee 


NANA) ” MMM FT TTT TTT 
Pg GG GEG AGE egg bag ghag eg eag hypheg heph ig tpt hyhy 
DARAARAAAAAAAAAAAAAA AAO AO 





J_5 
VSV11/VS11_== GRAPHIC SYS. DIAG MACRO M1113 28-OCT-81 11:23 PAGE 130 


*e* ASCII CHARACTER ADDRESS TABLE AND SUBPIX SEQ 0243 
9253 : THESE ARE THE CHAR SUBPIX ROUTINES. 
9254 ; EACH IS BUILT ON A 5 X 7 DOT MATRIX (ALA VTO5S) 
9255 > <CR> WILL INVOKE A ‘'STOP''. CPU MUST CALCULATE THE START 
9256 t CO-ORDS FOR NEXT LINE, STUFF IN ''..CRX AND ..CRX+2°° AND 
9237 + RESUME, TO XCT PSUEDO-CRLF. 
9259 : THE FOLLOWING MACRO (SXY4) APPLIES A. 4X SCALE FACTOR AT 
9260 : ASSEMBLY TIME TO YIELD A CHAR SIZE OF 30 X 40 (OCTAL) 
920) + WHICH PRODUCES A MEDIUM SIZE CHAR FONT. 
9263 MACRO SxY4 A,B,C 
9264 XY Wary; 
9265 ENDM sey . 
9267 110702 165000 ..NULL: DPOP ;ALL UNDEFINED CHARS EXIT HERE. 
9269 110704 164000 ..LF:  DNOP :DPOP TO NULL THE <LF>. 
9270 110706 104000 SVEC 
9272 110712 165000 DPOP 
9274 110714 164000 ..CR:  DNOP :DPOP TO NULL THE <CRLF>. 
9275 110716 173000 STOPN zWAIT FOR NEW is 
9276 110720 114000 APNT ..0K, EXECUTE THE <CRLF> 
9277 110722 000000 0000060 .-CRX: .WORD 0,0 
9278 110726 165000 DPOP 
9280 110730 104000 ..SPC: SVEC 
9282 110734 165000 DPOP 
9283 110 104000 ..EXC: SVEC 
9289 110752 165000 DPOP 
9290 110754 104000 ..QU0: SVEC 
9296 110770 165000 DPOP 
9297 110772 104000 ..NUM: SVEC 
9307 111016 165000 DPOP 
9308 111020 104000 ..DOL: SVEC 
9320 111050 165000 DPOP 
9321 111052 104000 .PCT: SVEC 
9336 111110 165000 DPOP 
9337 111112 104000 ..AND: SVEC 
9352 111150 165000 DPOP 
9353 111152 104000 ..QU01: SVEC 
9357 111162 165000 DPOP 
9358 111164 104000 .LPAR: SVEC 
9364 111200 165000 DPOP 
9365 111202 104000 . -RPAR: SVEC 
9371 111216 165000 DPOP 
9372 111220 104000 .AST: SVEC 
9380 111240 165000 DPOP 
9381 111242 104000 .-PLS: SVEC 
9387 111256 165000 DPOP 
9388 111260 104000 ..CMA: SVEC 
9392 111270 165000 DPOP 
9393 111272 104000 ..MNS: SVEC 
9397 111302 165000 DPOP 
9398 111304 104000 ..DOT: SVEC 
9401 111312 165000 DPOP 
9402 111314 104000 .SLSH: SYEC 
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wee ASCII CHARACTER ADDRESS TABLE AND SUBPIX SEQ 0244 
9407 111326 165000 DPOP 
9408 111330 104000 --00: SVEC 
9420 111360 165000 DPOP 
9421 111362 104000 «e171: = SVEC 
9428 111400 165000 DPOP 
9429 111402 104000 --22: SVEC 
9441 111432 165000 DPOP 
9442 111434 104000 --33: SVEC 
9457 111472 165000 DPOP 
9458 111474 104000 ~-44: SVEC 
9465 111512 165000 DPOP 
9466 111514 104000 e039 «=. SVEC 
9477 111542 165000 DPOP 
9478 111544 104000 --66:  SVEC 
9490 111574 165000 DPOP 
9491 111576 104000 77: SVEC 
9498 111614 165000 DPOP 
9499 111616 104000 68: SVEC 
9518 111664 165000 DPOP 
9519 111666 104000 99 SVEC 
9530 111714 165000 DPOP 
9531 111716 104000 --COLN: SVEC 
9537 111732 165000 DPOP 
9538 111734 104000 - SEMI: SVEC 
9544 111750 165000 DPOP 
9545 111752 104000 -LANG: SVEC 
9550 111764 165000 DPOP 
9551 111766 104000 --EQ: SVEC 
9557 112002 165000 DPOP 
9558 112004 104000 «RANG: SVEC 
9562 112014 165000 DPOP 
9563 112016 104000 » QUES: SVEC 
9573 112042 165000 DPOP 
9574 112044 104000 --ATS: SVEC 
9587 112076 165000 DPOP 
9588 112100 104000 ~-AA: = =SVEC 
9597 112122 165000 DPOP 
9598 112124 104000 -BB: SVEC 
9611 112156 165000 oP 
9612 112160 104000 CC: SVEC 
9622 112204 165000 DPOP 
9623 112206 104000 - DD SVEC 
9631 112226 165000 DPOP 
9632 112230 104000 EE SVEC 
9635 112236 104000 FF SVEC 
9641 112252 165000 DPOP 
9642 112254 104000 --GG:  SVEC 
9647 112266 160000 112160 «WORD DJMP,..CC zFINISH USING ‘'C’’. 
9648 112272 104000 MH:  SVEC 
9655 112310 165000 DP 
9656 112312 104000 -II:  SVEC 
9664 112332 165000 DPOP 
9665 112334 104000 JJ SVEC 
9672 112352 165000 DPOP 
9673 112354 104000 KK:  SVEC 
9679 112370 165000 DPOP 
9680 112372 104000 Als  SYEC 
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et ASCII CHARACTER ADDRESS TABLE AND SUBPIX 


9685 112404 165000 DPOP 
9686 112406 104000 MM: SVEC 

9692 112422 165000 DPOP 

9693 112424 104000 ..NN: — SVEC 

9700 112442 165000 DPOP 

9701 112444 104000 ..00: — SVEC 

9712 112472 165000 DPOP 

9713 112474 104000 ..PP: — SVEC 

9721 112514 165000 DPOP 

9722 112516 104000 ..00:  SVEC aa 

9726 112526 160000 112444 .WORD  DJMP,. .00 :FINISH USING "0". 
9727 112532 104000 ..RR: — SVEC . 
9731 112542 160000 112474 .WORD  DJMP,..PP :FINISH USING "P"’. 
9732 112546 104000 ..SS:  SVEC 

9746 112602 165000 DPOP 

9747 112604 104000 TT: SVEC 

9753 112620 165000 DPOP 

9754 112622 104000 UU: — SVEC 

9762 112642 165000 DPOP 

9763 112644 104000 ..WW: — SVEC 

9770 112662 165000 DPOP 

9771 112664 104000 w.W: — SVEC 

9778 112702 16500 DPOP 

9779 112704 104000 XK: SVEC 

9788 112726 165000 DPOP 

9789 112730 104000 YY: SVEC 

9798 112752 165000 DPOP 

9799 112754 104000 ..2Z:  SVEC 

9807 112774 165000 DPOP 

9808 112776 104000 ..LBRK: SVEC 

9814 113012 165000 DPOP 

9815 113014 104000 ..BSLH: SVEC 


SEQ 0245 
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| eee ASCII CHARACTER ADDRESS TABLE AND SUBPIX SEQ 0246 
9822 113030 165000 DPOP 
9823 113032 104000 . -RBRK: SVEC 
9829 113046 165000 DPOP 
9830 113050 104000 .-CRT: SVEC 
9835 113062 165000 DPOP 
9836 113064 104000 »-USC: SVEC 
9839 113072 165000 DPOP 


| 
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eee DEVELOPMENT VERSIONS CONTROL 


+ 99 .SBTTL *** DEVELOPMENT VERSIONS CONTROL 
9843 
9844 : THE FOLLOWING NUMBERS GET CHANGED AT EACH NEW ASSEMBLY, THEREFORE: 
9845 : IF THESE NUMBERS DON'T MATCH WHAT'S IN CORE (OCTALLY) THEN THIS 
se ; LISTING DOESN'T MATCH THE LOADED PROGRAM! 
9848 113074 021557 DDMMY: 09071. 
9849 113076 002165 HHMM : 1141. 
| 9850 
9851 
9852 
9853 .SBTTL *** PATCH AREA 
9854 .SBITL 
9855 
9856 ; 
$44 : FINALLY A GENEROUS PATCH AREA, 
9859 : AND AN ADJUSTMENT TO ACCOUNT FOR “5 "LASIAD BIT7"' HACK 
hs 93 : DESCRIBED IN ‘‘SUPPRG.MEM’’ (FOR REV C). 
9862 
9863 113100 PATCH: .BLKW 16. 
9864 
9865 : -BLKB <<, +600>8*C377>-. 
9866 3 “e 
9868 113400 -=.!377+41 
9870 113404 LSLAST:: 
9871 


SEQ 0247 










oens 113410 
9884 113412 
9886 113414 
9887 113416 
9888 113420 
889 

9892 113426 
9894 113430 
9896 113432 


9897 113434 
od 113436 


113440 


~TABLE 


172000 
000320 
000200 
000000 
000000 
172010 
000340 
000200 


000000 
000000 


000001 
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DEFAULT HARDWARE P 


»-SBTTL DEFAULT HARDWARE P-TABLE 


Tt THE DEFAULT HARDWARE P=TABLE CONTAINS DEFAULT VALUES OF 
THE STRUCTURE OF THIS TABLE 
OF THE RUN-TIME P-TABLE. 


; THE TEST=DEVICE PARAMETERS. 
3 IS IDENTICAL TO THE STRUCTURE 


. SBTTL 
PEND: 


. WORD 
- WORD 
. WORD 
~ WOR 

» WORD 


N 
keekee TH = TH - TH = TH = THAT'S ALL FOLKS 


- END 


172000 
320 
PRI04 
0 

0 
172010 
340 
PR104 
0 

0 


Be Se Pe Ge Fe Fe Be Be Bo Se Se Ge Fe Se Se Be 


IF 
; INTERRUPT PRIORITY 


1ST (OF 4) apt hh 45 


F LUT INSTALLED ) 


1ST (OF 4) VECTOR(S). 

(5 IF LUT INSTALLED 
INTERRUPT PRIORITY 
LUT AVAILABLE (IF NONZERO) 
SYNC FREQUENCY: ue = st 
1ST (OF 4) REGIST ER(S). 

7 IF LUT INSTALLED 

1ST (OF 4) VECTOR(S). 

(5 LUT eines 


LUT AVAILABLE (IF NONZERO) 
SYNC FREQUENCY: 0 goa 


REEKKK 


~ 
2 


_ oe 
. a 


SEQ 0248 
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SYMBOL TABLE SEQ 0249 


ABP 055140 BM) 067532 CMIVB 015430 CSMT1 060314 CSEDIT= 000003 
ABPX 055146 BMIPIX 067550 CMNOMI 015371 CSMT10 poset? CSERDF= 000055 
ABPY 055150 BMITST bezels CMPE O18ese CSMT11 062364 CSERHR= 000056 
ACAT 110302 BM1X 067542 CNVRT 027324 bsat ig Boch 20 CSERRO= 000060 
ADR = 000020 G BM1Y 997388 COLID 103106 CSMT1 62656 CSERSF= 000054 
ALL. = 003774 G BM14 = 136000 G CONFIG 030414 CSMT14 063020 ERSO= 000057 
ALLB_ = 003774 G BM18 = 137000 G CONMEM 030414 CSMT15 063306 $SESCA= 000010 
ALLNB = 003374 G BOE = 000400 G CONSYC 030760 CSMT2 060426 CSESEG= 000005 
APF 005047 BOXE 100732 CRDAX 013734 CSMTS 060540 UB= 000 
T_ = 114000 G BRINIT 007030 CRDAY 014017 CSMT4 060672 CSETST= 000001 
APTST 054566 BV 102466 CRWRE 014102 CSMTS5 = 061024 CSEXIT= 000032 
ASSEMB= 000010 B04 075714 CRWRO 013664 CSMT6 061656 CSGETB= 000026 
AUXSEG= 000001 B048 075736 CRWRZ 013613 CSMT7 = 0613520 C$GETW= 000027 
1 = 001776 B08 075726 CSCHAN 065140 CSMT8 061434 c$ = 000043 
BADDAT 023060 B14 075666 CSCH.1 065146 CSMT9_ 062070 CSGPHR= 000042 
BARS 102356 B148 075710 CSCH.6 065142 CSMXIT 065016 C$GPLO= 000030 
BGEN 102460 B18 075700 CSCH.8 065144 CSPCE 010411 I= 000040 
BITO = 000001 G ER 021422 G CSDSE 010351 CSRCHK 022440 CS$INIT= 000011 
IT00 = 000001 G CBAERA 013507 CSFLE 010451 SRER 021166 G C$INLP= 000020 
BITO1 = 2G CBCHK 022624 CSIFC. 014630 CSRERA 013165 I= 0000 
BITO2 = 000004 G CESWE 014326 CSMEND 064776 CSRETR 065150 CSMEM = 00003 
BITOS = 000010 G CEZWE 014255 CSMF1A 065200 CSRGEN 014543 $MSG = 000025 
1T04 = 000020 G CGRPH = 020000 G CSMF1IB 065206 CSRGSN 014461 CSOPEN= 000034 
BITOS = 000040 G HAR = 100000 G CSMF2A 065212 CSXPE 010651 CSPNTB= 000014 
1T06 = 000100 G CHDISP 054122 CSMF2B 065214 CSXRE 010611 TF= 017 
BITO7 = 000200 G IE = 010000 G CSMF2C 065216 T 054070 TS= 000016 
BITO8 = 000400 G CHPROT= 000200 G CSMF2D 065222 CTAB 903628 G CSPNTX= 000015 
BITO9 = 001000 G CHRF 005475 CSMF3A 065230 CTABE 003302 G C$Q10 = 000377 
BIT] = 000002 G CHRFX 005521 CSMF 065236 TABM 003256 G C$RDBU= 000007 
BIT10 = 002000 G CHRTST 053374 CSMF3C 065240 CTABS§ 003270 G CSREFG= 000047 
BIT11 = 004000 G H 054066 CSMF 3D BO3636 CT.ASC 054104 ESE= 033 
BIT12 = 010000 G HV 03060 CSMF4A 065300 CT.BAS 054116 EvI= 3 
BIT13 = 020000 G CHX 103052 CSMF4B 065320 CT.RET 054106 CSRFLA= 000021 
BIT14 = 040000 G CHY 103054 CSMF4C 065314 CT.SUB 054110 PT = 000025 
BIT15 = 100000 G CHO = 000000 G CSMF4D 065334 CUIM = 146016 G CSSEFG= 000046 
BIT2 = 000004 G CH1 = 000400 G CSMF4E 065372 CUIOFF= 120016 G S$SPRI= 000041 
BITS = 000010 G CH2 = 001000 G CSMF4F 065420 CUIS. = 146013 G CSSVEC= 00003 
BIT4 = 000020 G CHS _= 001400 G CSMF4G 065436 CUOFF = 146040 G CSTPRI= 000013 
BITS = 000040 G CKDROP 030354 CSMF4H 065454 C = 146060 G DAVTO = 144003 G 
BIT6 = 000100 G CKEMAX 030254 CSMF4I1 065470 CURD = FH G DBLINK 105356 
BIT7 = 000200 G CLFLGS= 000012 G CSMF4J 065346 CUWT = 175000 G DBLPIX= 000100 G 
BIT8 = 000400 G CLMFCN 026754 CSMF4K 065370 cvc = tes G DMMY 113074 
BIT9 = 001000 G CLMPTR 071610 CSMF4L 065324 = 00005 DEVCNT 032726 
BLINK = 175401 G CLMSHT 671648 CSMF4U 065270 C$AUTO= ied DEVDRO 833098 
BL 104620 CLMTAB 07161 CSMF4V 065254 = 000022 DEVNRD 3723 
BLU = 007400 CLRMEM= 170140 G CSMF 4X 6 CSBSEG= 000004 DEVNXR red 
BLUC = 000004 G CLRRW 026650 4Y 065330 SUB= 00000 DEV: 033571 
BLUEG = 002100 G CLRRW1 pease? CSMITR 060204 CEFG= 00004 DEVSUM 033534 
BMF 005431 CLRTST 070716 CSMLOO 060210 CSCLCK= 00006 DFPTBL oesece G 
BMX 005453 CLRT1 070740 CSMNEX 064756 CSCLEA= ed DGEN 102660 
BMXX 101062 CLRW Beo6 5 CSMPE 1933) C$CLOS= 03 DGX 102662 
BMOCHK 070456 CLR.D. 071602 CSMPTB 06 066 CSCLP1= 000006 DGY 102664 
BMOP1 070552 CLR.D2 071720 CSMPTE 065136 CSCVEC= 000036 DIAGMC= 00 
BMOP2 070576 CLR.Z 051295 CSMPX o206¢ CSDCLN= 000044 DISSEL 1014 
BMOTST 067642 CLR.ZA 0715 CSMPY 65024 CSDODU= 000051 JM 026274 
BM04 = 134000 G CLR.Z2 071704 CSMRE 3 CSDRPT= 000024 DJMP = 160000 G 
BMO8 = 135000 G CLTINEW 071272 CSMTST 060164 $dU = 000053 DJMS = 160001 G 
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SYMBOL TABLE SEQ 0250 
DJS 026326 ECMPE4 052452 FCOORD 016377 GHYTST 066450 HUE 003222 G 
DNOP = 164 ECRSV1 052466 FERCM 024030 GHYTYP b67104 HX 075516 
DOTS 102556 ECRSV2 052472 FHST = 880000 G GOLD = 003200 G HY 075306 
DPC 003032 G ECRSV3 052502 FILL? 027014 GRN = 000360 HZ 003246 G 
PCER 020732 G ECSEQ1 052512 FILL2 027020 GRNC = 000010 G I = 040000 G 
DPCERA 012643 Ereecs 052530 FLGCHK 022410 GRN1 = Op Scoe G IAUX 003160 G 
DPDSE. 007611 ECSEQS$ 052576 FLGER 021134 G GRN2 = 003000 G IBE = 010000 G 
DPINIT 025402 ECSEQ4 052630 FLGERA 013122 GRNS = 003400 G ICBAE_ 007476 
= 165000 G ECSEQ5 052654 FNOCSR 023772 GRX 075446 ICBASE 003162 G 
DPRESE 026074 ECSEQ6 052676 FNOINT 004315 GRY 075236 ICSR 003152 G 
003050 G ECSEQ7 052726 FORCER 003020 GTCURS 077752 ICSRE 007156 
DPSINI 025540 ECSQ7B 052750 FORCET 032776 GTJSSW= 950008 G IDLE 101362 
002502 G ECSTO § 052754 FORCSI= 000040 G GUNID 103360 IDLEA 101404 
DPUSAV 026360 EF .CON= 000036 G FREE 003240 G GX 075470 IDLEB = 101424 
DRDYTO= 150003 G EF .NEW= 000035 G FRESIZ 003242 G GXI = 174100 G IDLEX 101342 
DRR 003034 G EF .PWR= 000034 G FSYCHA 016500 GY 075260 DPC 003126 G 
DSBINT 026176 EF .RES= 000037 G FUMI 004206 GYI = 174100 G IDPCE 007100 
DSCSE 0111 EF .STA= 000040 G FUSI 003752 GSCNTO= 000200 IDSR 003130 G 
DSDPE 007651 EGGBL = 003500 G FUSWI 004251 GS$DELM= 000372 IDSRE 007127 
DSDXE 007711 EMAXDU 030151 FUTO 004066 G$DISP= 000003 IDU. = 000040 G 
DSDYE 007751 EMK 00360 FSAU_ = 000015 GSEXCP= 000400 IDXR 003132 G 
DSFLE 010051 EN = 006654 FSAUTO= 000020 GSHILI= 000002 IDYR 003134 G 
DSMPE 010211 ENAINT 026114 FSBGN = 000040 GSLOLI= 000001 R_ _= 020000 G 
010151 ENECHK= 000100 G FSCLEA= 000007 G$NO_ = IFAULT 004356 
DSPCE 1 ENVIRN 031476 F$DU_ = 000016 GSOFFS= 000400 IFLAGS 003150 G 
R 03034 024041 FSEND = 000041 GSOFSI= 000376 07447 
DSRCHK 022332 ERCNAM 024264 FSHARD= 000004 G = 1 SE 003156 G 
DSRER 20764 ERCOD 024074 G HW = 000013 GSPRMD= 00000 IIRCHK 023422 
DSRERA 01 ERCODS 047466 FSINIT= 000006 GSPRML= 000000 IIRCNC 023406 
STP 02624 ERCTBL 024266 $ = 000050 GSRADA= 000140 IIRCNF 023434 
DSXPE 010311 ERICHK 023516 D = 000000 RADB= 000000 IIRNFC 3452 
DSXRE 010 ERR = 100000 G = 000011 G$RADD= 000040 LDR 3140 G 
DTAB 101236 ERRCHK 025524 F$PROT= 000021 GSRADL= (C00120 ILMR 003142 G 
DT 101272 ERRCK1 023526 = 000017 RADO= 000020 ILSR 003136 G 
DTHIL = 000015 K 30130 $RPT = 000012 XFER= 000004 IN 3154 G 
DTO 026210 ERRVEC= 000004 G F$SEG = 000003 GSYES = 000010 IMCBDA 072504 
DUADR 035704 ERTABE 003502 F$SOFT= 000005 FX = 000776 G IMCERR 072334 G 
DUADRE 021454 G ERTABL 003302 FSSRV = 000010 FY = 000776 G MCHK 071736 
12 017105 ESF 004612 UB = 000002 KAFY50= 000776 G IMCHKR 071764 
DUFLG 3224 G ESUM 030132 F$SW = 000014 HAF Y60= 000736 G IMCRAM 072506 
Y 003076 EVL = 000004 G FSTEST= 000001 HATCH 102702 IMCRCT 072512 
DX = 000002 G 100336 GCOFF = 000100 G HBAE 021370 G IMCTRY BpSee5 
DXR 3036 G EXPGOT 017051 GD 022736 HBAERA 013444 IMC.CH 072552 
DXRER 021016 G EXPGT2 016322 GDDAT Be 3070 G HBCHK O5e 306 IMC.IR beSere 
DXRERA 012751 EXPR 027100 GERRMA 0 $219 G HCOPY = 176051 G IMC.ME 072566 
DXYME 00140 EXPRC2 022074 G GETCUR 065474 HCPY = 000001 G IMC.RA 072606 
DYI = 2G EXPREC 020700 G GETJSE 065542 HGEN IO3bDG IMC.SR 8 556 
DYNI = G EXPRM 110242 GHIINH= 010000 G HHMM 113076 IMC.TA 072554 
DYR 003040 G EXSM2 = 000050 G GHX = 94 G HOE = 100000 G IMC.Y 072574 
DYRER 021050 G EXSM4 = 000060 G GHXF 802 14 HPM1 002310 IMDERR 020506 G 
DYRERA 013014 EXTA 022300 GHXT 66334 HPM, 80 40 IMDI 005641 
EBLINK 105330 EXTEND 022276 GHXTST 065676 HPM 02370 IMDIX 005677 
CE 013552 EX2 = 000010 G GHXTYP B8633¢ HPM4 0 280 in 006101 
ECISVC 052416 EX4 = 446534 G HXYX 9078 4 HPM5 024 IMDIX pe t0 
CMPE1 052420 EY 100352 HY =1 aeyy G HST = 04 900 G IMPME 77 
ECMPE2 052424 ESEND = 002100 GHYF 05344 HSX 8 9S IMPWPE 007234 
ECMPES 052436 ESLOAD= 000035 GHYT 67106 HSY 7527 IMREAD= 162000 G 
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SYMBOL TABLE SEQ 0252 


L10123 104760 MPT.ST 074334 OPTI 003064 G PTINER Oe33¢8 SCBASE 003212 G 
L10124 107110 MPT.WB 074356 OUTDFX 105246 PUNIT 032730 SCFLG 003214 G 
L10125 113410 MPT.WE 074344 OUTDFY W2et8 PVEC2 = 000004 G SCIDE 017355 
L10126 113426 MPT.WY 074352 OUTDOT 10507 QvP 003030 G SCINT 106640 
L10127 113422 MPXPE 011551 OUTDTF 105134 QXIT 07646 SCM 017534 
L10131 113440 MPXRE 011511 OUTDT1 105162 Q1 076366 SCME 017416 
L255 = 003774 G CSE 011051 OUTDY1 105302 Q2 07642 SCMEM 106464 
M = 020000 G MRDSE 010711 OUTFLG 105070 Q3 076366 SCMFG 017461 
MAGEN = 002300 G MRFLE 011011 OUTLIN 104762 Q4 0764 SC 106704 
070326 MRMPE 011111 OSAPTS= 000000 RBL 076536 SCMMSO 106772 
K 100442 MRPCE 010751 O$SAU = 000001 RBO 076530 SCNINT 106660 
MATCH 100470 MRRE 023220 G OSBGNR= 000001 RBX 076540 SCNSTD 106552 
MATFLE 016017 MRRERA 013230 OSBGNS= 000001 RBY 076542 SCONTY 105522 
MATIRE 015663 MRXPE 011211 O$DU = 000001 RDDXY 065520 ScoUT 107040 
MATPCS 015505 MRXRE 011151 OSERRT= 000000 RDJSE 065566 SCPRE 017326 
MATPOS 015611 MSX = 020000 G OSGNSW= 000001 RDWRT = 176074 G SCRBLU 104542 
MATUI 016064 MSY = 000100 G $POIN= 000001 RDWRT1= 176076 G SCRCOM 104554 
MATXYE 015547 MXY = 020000 G OSSETU= 000000 READ = 176050 G SCRGRN 104550 
MAXX = 001776 G M128 = 000002 G PASRPT 032240 RED = 000017 SCRRED 104534 
XY = 001776 G M256 = 000003 G PATCH 113100 REDC = 000020 G SCRWHT 104526 
MAXYSO= 001776 G M32 = 000000 G ATS 074250 REDG = 002200 G SCS 017632 
MAXY60= 001676 G M64 = 000001 G PATTST 073240 REGERR 023144 G SCSR 003202 G 
MCHAN 077270 NBLINK= 175400 G ATT1 073262 REG 023062 SCSYC 106571 
MDVO = 000000 G NEWPAS 032174 PAUSE1 027514 RELEAS 026756 SDASK_ 102212 
MDV1 = 000001 G NLRI 006306 PAUS.5 027522 RELF 004746 SDLIST 101472 
MDV2 = 2G NLWI 006362 PCSCHK 022360 RELFX 004773 SDO 102231 
MDV3 = 3G NOCMI 015263 021102 G RELTST 053050 SDPC 003164 G 
MEMFLG 003252 G NOCSR 024003 PCSERA 013057 RELT1. 053322 SDSR 003166 G 
MEMTAB 003256 G NODEV. 003226 G PCSERR 020064 RESET1 034340 SDX 027312 
MENDPC 016141 NOINIT 4434 PCSX 003564 ESTRS 031436 SDXR 003170 G 
REG 015733 NOINTR 004321 PDBITS 003066 G RG 022664 SDY 027270 
MFGFLG 002512 G NOITS 002510 G 003072 G RJF 004534 SDYR 003172 G 
M 3022 NOMAN 017735 PDI 003070 G RLMOD 057062 SELCBA= 000007 G 
MFGSO 003024 NOMAT 016267 PDM 003074 G LMO 057076 SELCHA 077302 
MKDXR NOMST 015334 PDXI 004642 RLMXIT 057676 SELCSR= 000003 G 
MKDYR 100006 NOSTIK 077222 END 113440 RLNEWL 057346 ELDIS 101272 
MMCHK 022466 NOSW] 014777 PERIM 103066 RLSKIP= 000400 G ELDSR= 000000 G 
C 044744 NOSWPI 014712 PINTRA= 000001 G RLXIE 016552 SELFLG= 000002 G 
MMMACA 04501 NOTOT 047336 PINTRB= 4 G RLXYE 020170 G ELHBA= 000005 G 
MMMACE 012511 NSI 004014 PIXRBK= 000000 G RLX2IE 016613 SELMPM= 000004 G 
021650 G NSINIT 006760 T = 001000 G LYDE 016715 E = 000004 G 
MMMNXE 012600 NTO 004135 TCOO 022132 G RLYUE 016663 SELPCS= 000001 G 
MMVEC = 50 NTSC 027066 PNTSYC 022200 G RLY2DE 017010 SELXPM= 000006 G 
T 045316 NTSC8 110222 RBH 005574 RLY2UE 016751 SELXRR= 000006 G 
MPAT2 074306 016546 005556 RND8 = 000400 G SEQERR= 120003 G 
MPCBAS 074332 NULCR 016547 PRGSIZ= 174561 RNLN = 144000 G SETCB = 152000 G 
MPCSE 011411 NXM 027566 I_ = 002000 G RPD 056310 SETCSR= 000013 G 
SE 011251 NXME = 104003 G PRIOO = aoe G RPF 005175 SETDSR= 000010 G 
MPE = 114003 G 003504 PRIO1 = 000040 G RPNT = b20908 G SETFLG= 12 G 
MPFLE 011351 NXRERR 020032 G PRI02 = 000100 G RPT 056300 SETHB = 150000 G 
MPLEN = 000011 % 03545 PRI035 = 000140 G RPTST 055676 SETMEM= 170100 G 
MPMER 021252 G NXTU 32206 PR1I04 = 000200 G RSTPOS= 190808 G SETMPM= SOR? G 
MPMERA 013273 ODDSKP= 000200 G PRIO5 = 000240 G RSVDOP= 124003 G SE TMRR= ogois G 
MPMRE 011451 F 004676 PR1I06 = 000500 G 256 = 870108 G 032 ic 
MPOFF 074330 OPCFX 004724 PRIO? = ea G SAUX 210 G SETXPM= 000017 G 
MPPCE 011311 OPCOD het PROTEC= 176000 G SAVED Q 1765 SETXRR= 000016 G 
MPTNEW 073662 OPC! 043440 PRSYCH 065152 SAVERS 03141 SFLAGS 003200 G 
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SYMBOL TABL 


. SEQ 0253 
SFPTBL 002502 6 SWCHON= 000002 6 TS$AU = 010047 UAM = 000200 6 XPXRE 012451 
SHADLY 003220 G SUE = 000010 G TSSAUT= 010081 UNI goecay XRCSE 011751 
SHADI6 027172 SWIBV 015036 TSSCLE= 010052 ULWI 006477 XRDSE 011611 
SHBASE 003206 G SWNOCU 015205 TSSDAT= 010131 UNI. 004212 XRFLE 011711 
SHRTX 008950 SWNOHL 015112 TS$DU = 010050 UNITN 003026 G XRMPE 012051 
SIFLAG 023064 SUTCH = 170200 G TSSHAR= 010001 USI 003756 XRMRE 012011 
SIMSG. 023012 SYCFLG 003954 G TS$HW = 010000 USWI 00425 XRPCE 011651 
SINIT = 10 SYCTAB 003970 G TSSINI= 010046 US100 027530 XRRER 021304 G 
SINIT1 035114 YNC = 164001 ¢ TSSMSG= 010122 UTO.-004072 XRRERA 013336 
SI0FF = 171000 G SYNCTO= 140003 G TS$PC = 000002 VIOLET= 003300 G XRXPE 012111 
S10N = 171400 ¢ YSCON 021510 & TSSPRO= 010045 VISKIT 076356 XTBL. 102516 
SKPO = 0 S$; SYM= 010000 TSSPTA= 010130 VIS). 074544 XXCOMM 003236 G 
SKP1 = 000401 TBOFF 102320 TSSRPT= 010053 VIS2 074714 XXDP = 003726 
SKP2 = 000402 TBON 103262 TS$SEG= 010000 vIss 075710 XX.ENT= 025570 
SKPS = 000408 TEMP] 003939 G TS$SOF= 010003 vIs4 075320 "EXI= 026072 
IN 003204 G TEMP2 003234 G TS$SUB= 010116 VI8S 075530 020126 G 
SOCT1 075026 TESTK 030070 T$$su = 010002 VISSA 078746 XYX 003657 
SocT2 075040 TIDFLG 002506 TSSTES= 010124 vIs6. 076076 X$ALWA= 000000 
SPARTS 074434 TINERR 022775 T1 034054 G VRLF 076016 X$FALS= 000040 
SPCSAV 003176 G IN = 000043 110 044160 G VRLF1 076024 XSOFFS= 000400 
3600 TNAM 030066 111 044654 & VRLF2 076036 XSTRUE= 000020 
SPM2 003630 TNUM 030064 112 045370 G VSHGE 02601 X2INC. 057752 
SPMG 003660 TOTV 003056 G 113 046040 G SHNG 025720 G XSINCA 057762 
SPMS 5710 TOTVST 047080 114 046770 & VSHUNG 025742 XSINCB 057772 
g 009740 TSTEND 030072 115 047422 G WAITF. 097654 YA 0671 
SPM? «003770 TSTG0 027702 116 052776 G WE = 000010 G YON 060016 
SRO. = 177572 TSARGC= 000001 117 033330 G WECC = 160000 G YDOWN = 000040 G 
Rl = (177876 TSCODE= 000052 118 084516. G WHITE = 003774 G YELLOW= 003600 G 
SR2 = (177876 TSERRN= 006346 119 055156 G WJSS = 042000 G YI 066340 
SRS = (172816 TSEXCP= 000000 12 034274 G T = 176034 G YMAX 003250 G 
SSDSR 003174 G TSFLAG= 000040 150 «055626 G WRTCPX= 140000 G YUP 060002 
Ser 503 TSFREE= 113440 131 56316 G WRTCPY= 140000 G Y2DN 060046 
SSTST 043210 = 000000 152 «057016 G WRTCSR= 000013 G SUP «(060032 
049516 TSHILI= 000015 153 060064 & WRTJSS= 042000 G YSOTBL 102516 
S82 043526 TSLAST= 000001 154 065612 G WRTMSR= 040000 ¢ YeOTBL 102536 
S8T$ 049850 TSLOLI= 000000 135 66364 ¢ WRT.D 074262 SVPC = 110402 
STOP = 179000 G TSLSYM= 010000 136 67136 ¢ WRT-X 074264 DX = 002000 
STOPI = 173400 ¢ TSLTNO= 000043 15? 067564 G WRT-Y 074966 DY = 000000 
STOPN = 173000 G TSNEST= 177777 158 070624 G WRT] = 176036 G "I = 000000 
STPTST 046110 0 = 000001 158.1 070782 XA 066352 "NT = 000037 
STPV 003052 G T$NS1 = 000011 158.2 071279 XI 067113 “AA 112100 
STP1 046742 TSNS2 = 000003 129" 072614 g XINC 057723 “"AND 171112 
STP2 «046746 TSPCNT= 000000 : 035044 G XINCA 057739 "AST 111220 
SIPS 046752 TSPTAB= 010130 130 «073150 G XINCB 057742 "ATS 112044 
STPG 6760 TSPTHV= 000002 130.1 073254 XMCHK 022566 Be, 112124 
STRSET 0 TSPTNU= 00000 130.2 073662 XMMAC 045456 "BSLH 1138014 
VSR= 026050 TSSAVL= 17777 131°. 074364 G XMMACA 045530 "Cl 112160 
GBL= TSSEGL= 177777 13 074446 G XMMACE 012545 “"Cma 111260 
SVCINS= 177777 TSSEKO= 13 076560 G XMMAE 021762 G “COLN 111716 
SvCSUB= 177777 T$SIZE= 000016 134 —«:101134 & XPCSE 012311 “eR 110714 
SVCTAG= 177777 TSSUBN= 00000 135: 105404 G NPDSE 12151 “ERT 113050 
evcTst= 177777 TSTAGL= 177777 14 055622 G MPELE 012281 "ERK 110722 
v 7010 TSTAGN= 010132 18 041152 G XPMER 021336 G "DD 112206 
SVEC = 104000 G TSTEMP= 000044 16 042140 G XPMERA 013401 “"poL 111020 
SVE 008221 TSTEST= 000043 1? 042966 ¢ XPMPE 012411 “DOT 111304 
svt «057000 T$TSIM= 177777 18 043450 ¢ XPMRE 019351 "EE 112230 
SVIST 056364 T$TSTS= 000001 19 043720 G XPPCE 019211 “EO «111766 
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SYMBOL TABLE 
~-EXC 110736 --LPAR 111164 - QQ 112516 
oof F 112236 . «MM 112406 ~-QUES 112016 
- -GG 112254 ~-MNS = 111272 QUO = =110754 
. HH 112272 «NN 112424 --QU01 111152 
are | 112312 eNULL 110702 »+RANG 112004 
eoJdJ 112334 -NUM = 110772 ~-RBRK 113032 
» «KK 112354 -00 112444 «+RPAR 111202 
«LANG 111752 PCT 111052 «RR 112532 
--LBRK 112776 «PLS 111242 «»SEMI = 111734 
- LF 110704 -PP 112474 SLSH 111314 
- ABS. 113440 000 
00 001 


00000 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 34896 WORDS ( 137 PAGES) 
DYNAMIC MEMORY: 20346 WORDS ( 78 PAGES) 
ELAPSED TIME: 00:36:4 
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